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Abstract 

Modern  statistical  experiments  routinely  feature  a  large  number  of  input  variables 
that  can  each  be  set  to  a  variety  of  different  levels.  In  these  experiments,  output  response 
changes  as  a  result  of  changes  in  the  individual  factor  level  settings.  Often,  an  individual 
experimental  run  can  be  costly  in  time,  money  or  both.  Therefore,  experimenters  generally 
want  to  gain  the  desired  information  on  factor  effects  from  the  smallest  possible  number  of 
experimental  runs.  Orthogonal  arrays  provide  the  most  desirable  designs.  However,  finding 
orthogonal  arrays  is  a  very  challenging  problem. 

There  are  numerous  integer  linear  programming  formulations  (ILP)  in  the  literature 
whose  solutions  are  orthogonal  arrays.  Because  of  the  nature  of  orthogonal  arrays, 
these  ILP  formulations  contain  symmetries  where  some  portion  of  the  variables  in  the 
formulation  can  be  swapped  without  changing  the  ILP.  These  symmetries  make  it  possible 
to  eliminate  large  numbers  of  infeasible  or  equivalent  solutions  quickly,  thereby  greatly 
reducing  the  time  required  to  find  all  non-equivalent  solutions  to  the  ILPs. 

In  this  dissertation,  a  new  method  for  identifying  symmetries  is  developed  and  tested 
using  several  existing  and  new  ILP  formulations  for  enumerating  orthogonal  arrays. 
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DIFFERENT  FORMULATIONS  OF  THE  ORTHOGONAL 


ARRAY  PROBLEM  AND  THEIR  SYMMETRIES 


I.  Introduction 


1.1  Motivation 

Since  the  diseovery  of  the  seientifie  method  in  the  17th  eentury,  the  analysis  of 
experimental  results  has  been  the  meehanism  through  whieh  virtually  all  hypotheses  have 
been  tested.  Montgomery  [26]  defines  an  experiment  as  “a  test  or  series  of  runs  in  whieh 
purposeful  ehanges  are  made  to  the  input  variables  of  a  proeess  or  system  so  that  we  may 
observe  and  identify  the  reasons  for  ehanges  that  may  be  observed  in  the  output  response.” 
Here  in  the  early  21st  eentury,  human  knowledge  and  teehnology  have  advaneed  so  far  that 
today’s  experiments  routinely  feature  a  large  number  of  input  variables  (eommonly  ealled 
factors)  that  ean  eaeh  be  set  to  several  different  levels.  In  these  experiments,  the  output 
response  ehanges  as  a  result  of  ehanges  in  the  individual  faetor  level  settings.  One  ean 
easily  see  that  for  most  modern  experiments,  eondueting  a  full  factorial  design  experiment, 
where  all  possible  eombinations  of  all  faetor  levels  are  tested,  ean  be  too  diffioult  to  eonduet 
either  due  to  eost  or  time  eonstraints.  One  prominent  way  to  obtain  the  required  output 
responses  from  an  experiment  at  a  lower  eost  than  a  full  faetorial  experiment  is  to  design 
an  experiment,  sueh  as  a  fraetional  faetorial  design  [26].  h  fractional  factorial  design  is 
essentially  a  subset  of  a  full  faetorial  design  experiment  where  only  a  fraetion  of  the  runs 
are  used.  The  fraetion  is  seleeted  to  make  optimal  use  of  the  sparsity-of-effeets  prineiple  to 
isolate  out  the  main  effeets  and  interaetions  of  interest  [26] . 

Eraetional  faetorial  designs  have  been  used  for  produet  development  and  testing  in 
industry  for  deeades  with  great  sueeess.  In  partieular,  these  designs  have  been  used  by 
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the  United  States  Department  of  Defense  to  both  improve  the  quality  of  weapons  systems 
and  other  equipment  as  well  as  to  lower  maintenance,  operation  and  replacement  costs. 
The  United  States  Air  Force  (USAF)  is  particularly  dedicated  to  this  type  of  testing  and 
evaluation.  The  USAF  operates  a  number  of  test  and  evaluation  centers  that  examine 
and  evaluate  the  full  spectrum  of  its  systems  and  equipment.  These  centers  use  designed 
experiments  to  test  aircraft,  motor  vehicles,  communication  networks,  avionics,  radars, 
lasers,  computer  systems,  automated  information  systems,  directed  energy  weapons, 
ordinance,  missiles,  air  traffic  control  systems,  aircraft  landing  systems,  reconnaissance 
platforms,  nuclear  weapons  systems,  weather  sensors  and  space  systems  to  name  a  few. 
These  tests  provide  engineers  with  the  data  needed  to  make  valid  inferences  about  the 
capabilities  of  equipment  and  systems  in  order  to  improve  quality  and  performance. 
More  in-depth  discussions  of  these  types  of  tests  conducted  by  the  USAF  test  and 
evaluation  community  can  be  found  in  Tucker  et  al.  [33],  Hill  and  Chambal  [14]  and 
Hutto  and  Higdon  [16].  It  is  clear  from  the  level  of  effort  put  into  testing  and  evaluation 
by  the  USAF  that  there  is  a  need  for  efficient  large-scale  factorial  designs  to  ensure  that 
increasingly  complex  USAF  systems  operate  at  their  peak  of  efficiency  for  the  lowest 
possible  cost. 

When  looking  at  costs,  the  USAF  is  not  just  concerned  with  evaluating  the  life  cycle 
cost  of  its  systems  and  equipment.  The  cost  of  testing  and  evaluation  is  also  of  great 
concern,  particularly  in  times  of  shrinking  federal  budgets.  As  previously  discussed, 
conducting  test  runs  of  factor  level  combinations  can  be  very  expensive  and  often  a  full 
factorial  design  experiment  is  prohibitively  expensive.  For  example,  the  test  of  a  particular 
missile  system  may  cost  several  million  dollars  per  missile  test.  In  these  cases,  fractional 
factorial  designs  are  best  used  to  determine  optimal  operational  factor  settings.  A  properly 
selected  fractional  factorial  design  is  critical  if  one  wishes  to  obtain  as  much  pertinent 
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information  as  possible  at  a  fixed  cost.  It  is  well  known  that  orthogonal  arrays  can  serve  as 
the  paragon  of  efficient  fractional  factorial  designs. 

An  Orthogonal  Array  (OA)  with  strength  t  is  an  array  consisting  of  elements  drawn 
from  a  fixed,  finite  set  of  symbols  that  are  arranged  in  such  a  way  that  for  every  t  columns  of 
the  array,  all  ordered  t-tuples  of  the  symbols  appear  an  equal  number  of  times.  In  statistical 
experiments,  a  factorial  design  D  with  N  runs,  k  factors,  and  s  levels  is  an  OA  of  strength  t, 
where  I  <  t  <  k,  if  each  of  the  t-level  combinations  appear  exactly  A  =  N/s^  times  when 
D  is  projected  onto  any  t  factors.  The  integer  A  is  called  the  index  of  the  OA.  Such  an  OA  is 
usually  referred  to  using  the  shorthand  OA(N,k,  s,t).  Xu  and  Wu  [35]  showed  that,  under 
the  hierarchical  ordering  principle  of  factorial  effects,  a  factorial  design  with  a  Generalized 
Wordlength  Pattern  (GWP)  that  is  lexicographically  smaller  is  more  desirable.  Hence,  OAs 
with  the  Generalized  Minimum  Aberration  (GMA)  (designs  that  sequentially  minimize  the 
GWP  criterion)  are  the  most  desirable  designs.  Finding  such  orthogonal  arrays  remains  a 
very  challenging  problem. 

OAs  have  additional  applications  outside  the  realm  of  designed  experiments.  In 
the  2012  U.S.  Defense  Strategic  Guidance,  the  Secretary  of  Defense  listed  the  ability 
to  “operate  effectively  in  cyberspace  and  space”  as  one  of  the  primary  missions  of  the 
U.S.  Armed  Forces  [28].  In  that  same  document,  the  Secretary  further  emphasized  the 
need  to  build  on  advancements  in  network  warfare  and  capitalize  on  the  interconnected 
nature  of  every  individual  and  piece  of  equipment  on  the  modem  battlefield  [28].  As  such, 
it  is  obvious  that  U.S.  military  information  networks  will  only  continue  to  grow  in  the 
future.  In  an  unpredictable  and  fast-moving  combat  environment,  network  reliability  will 
become  essential  to  mission  effectiveness.  OAs  can  be  used  to  assist  in  maintaining  the 
security  of  these  vital  networks.  In  particular,  Fecko  and  Steinder  [10]  demonstrated  that 
3-level  OAs  can  be  used  for  multiple  fault  localization  in  an  unreliable  environment  like 
a  modern  battlefield.  In  their  research,  OAs  were  able  to  reduce  the  exponential  number 
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of  failure  configurations  in  a  battlefield  network  to  a  small  enough  subset  that  statistical 
analysis  could  be  performed  to  locate  the  likely  causes  of  failures.  The  ability  to  efficiently 
and  accurately  generate  OAs  would  be  of  great  use  to  a  wide  variety  of  research  and 
testing  organizations  within  the  USAF  as  well  as  to  the  larger  scientific  and  engineering 
community. 

1.2  Research  Contribution 

The  next  chapter  provides  a  review  of  recent  best  efforts  to  develop  algorithms 
that  generate  GMA  OA(N,  k,  s,  t)  for  many  values  of  N,  k,  s  and  t.  These  algorithms 
generate  OAs  by  enumerating  all  solutions  of  different  ILP  formulations.  The  research 
in  this  dissertation  seeks  to  build  upon  the  current  ILP-based  algorithms  for  finding 
GMA  or  near-GMA  OAs  in  Bulutoglu  and  Margot  [7],  Bulutoglu  and  Ryan  [8]  as  well 
as  new  formulations  developed  from  results  in  Rosenberg  [29],  Williamson  [34]  and 
Seberry  and  Yamada  [31].  It  features  a  thorough  investigation  of  proposed  enhancements  to 
the  best  known  algorithms  for  finding  GMA  OA(A,  k,  s,  f).  These  enhancements  are  based 
on  a  generalization  of  the  symmetry  group  of  a  Linear  Program  (LP)  in  Margot  [23]. 

In  Chapter  3,  it  is  shown  that  there  are  no  redundant  inequalities  in  the  LP  relaxation 
of  the  Rosenberg  [29]  ILP  that  describes  OA(A,  k,  s,  t)s.  This  implies  that  each  inequality 
is  a  facet  of  the  LP  relaxation.  In  Section  3.3,  this  result  is  used  to  determine  the  order  of 
the  symmetry  group  of  the  LP  relaxation  of  the  Rosenberg  [29]  ILP.  The  practical  value 
of  this  result  is  that  it  exhibits  the  shortcomings  of  the  Rosenberg  [29]  ILP  LP  relaxation 
symmetry  group  in  describing  the  symmetries  of  the  OA  problem. 

Bulutoglu  and  Margot  [7]  previously  proved  that  the  isomorphism  group,  the  group 
that  sends  OAs  to  OAs  by  permuting  factors  or  levels  within  each  factor,  is  a  subgroup  of 
the  ILP  automorphism  group  that  they  used  to  enumerate  OAs.  Based  on  computational 
observations,  they  conjectured  that  these  two  groups  are  equal.  This  conjecture  is  proved 
in  Chapter  3. 
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In  Section  4.2.1,  for  many  N,k,  s,  t  combinations,  the  Margot  ILP  solver  [22]  is  used 
to  find  a  set  of  all  non-isomorphic  solutions  to  the  Rosenberg  [29]  ILP  by  exploiting  the 
symmetry  group  of  its  LP  relaxation.  For  the  same  N,  k,  s,  t  combinations,  this  is  compared 
to  finding  all  non-isomorphic  solutions  to  the  Bulutoglu  and  Margot  [7]  ILP  formulation 
by  exploiting  the  larger  isomorphism  group.  In  most  cases,  enumerating  a  set  of  all  non¬ 
isomorphic  solutions  to  this  ILP  is  faster,  even  though  it  has  more  variables.  This  provides 
a  plethora  of  ILPs  where  exploiting  a  larger  symmetry  group  more  than  overcomes  the 
additional  burden  of  having  a  larger  number  of  variables.  This  is  significant  since  it  is 
contrary  to  the  preprocessing  step  in  mathematical  programming  that  calls  for  deleting  as 
many  variables  as  possible  from  an  ILP  formulation. 

It  is  essential  to  find  larger  subgroups  of  the  ILP’s  symmetry  group  to  speed  up  the 
Margot  ILP  solver  [22]  enumeration.  The  Margot  ILP  solver  [22]  uses  the  automorphism 
group  of  the  formulation.  This  group  is  eqaul  to  the  symmetry  group  of  the  LP  relaxation, 
if  the  LP  relaxation  has  no  redundant  inequalities  and  is  full  dimensional.  Otherwise,  a 
non-full  dimensional  LP  relaxation  may  contain  hidden  symmetries  not  captured  by  the 
formulation  automorphism  group. 

Section  4.2  results  suggest  that  converting  an  ILP  with  inequality  constraints  into 
an  equality  constrained  ILP  by  adding  slack  integer  variables  can  be  beneficial  if  one  is 
to  use  the  Margot  ILP  solver  [22].  This,  in  turn,  underscores  the  importance  of  finding 
larger  subgroups  of  the  symmetry  group  of  an  ILP  with  equality  constraints.  Currently,  the 
Margot  ILP  solver  [22]  exploits  the  automorphism  group  of  the  ILP  formulation.  This 
group  is  always  a  subgroup  of  the  LP  relaxation  symmetry  group.  Thus,  it  is  more 
desireable  to  exploit  the  LP  relaxation  symmetry  group.  The  LP  relaxation  of  an  ILP 
with  equality  constraints  is  not  full  dimensional.  Hence,  there  is  a  need  for  algorithms 
that  find  the  symmetry  group  of  a  general  linear  program  with  equality  constraints.  In 
Sections  4.2  and  4.3,  an  algorithm  is  developed  that  satisfies  this  need.  This  is  the  first  time 
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in  the  literature  that  an  algorithm  for  finding  the  symmetry  group  of  a  non-full  dimensional 
linear  program  is  developed. 

In  Section  4.2,  the  developed  algorithm  is  implemented  on  LP  relaxations  of  ILPs 
with  equality  constraints  that  describe  orthogonal  arrays.  Computational  results  reveal 
previously  unknown  hidden  symmetries  of  the  Bulutoglu  and  Ryan  [8]  ILP  formulation  of 
the  OA  problem.  Consequently,  exploiting  the  newly  found  symmetries  decreases  solution 
times  significantly. 

In  Section  4.3,  the  newly  developed  algorithm  is  tested  with  the  LP  relaxation 
symmetry  groups  of  modified  versions  of  Mixed  Integer  Linear  Programs  (MILPs)  featured 
in  Liberti  [18].  It  reveals  hidden  symmetries  of  the  modified  MILPs  that  could  not 
otherwise  be  detected. 

In  general,  the  symmetry  group  of  an  ILP  contains  the  symmetry  group  of  its  LP 
relaxation.  One  fundamental  question  is:  “How  close  is  the  LP  relaxation  symmetry  group 
to  capturing  all  the  symmetries  in  the  ILP?”  In  Section  4.4,  attempts  are  made  to  answer 
this  question  for  the  OA  problem.  This  is  accomplished  by  calculating  the  symmetry  group 
of  the  Bulutoglu  and  Ryan  [8]  ILP,  for  several  OA(N,  k,  s,  t). 

In  Section  4.5,  attempts  were  made  to  speed  up  the  Bulutoglu  and  Ryan  [8] 
OA  extension  algorithm  by  exploiting  the  LP  relaxation  symmetry  groups  of  various 
formulations. 

In  Section  5.2,  some  open  problems  resulting  from  the  research  in  this  dissertation 
are  presented.  In  Section  5.3,  several  conjectures  are  made  based  on  the  Chapter  4 
computational  research  results.  In  Section  5.4,  several  follow-up  computational  projects 
are  proposed. 

1.3  Organization  of  Dissertation 

This  dissertation  is  organized  into  five  chapters  and  two  appendices.  Chapter  2 
provides  a  review  of  recent  publications  that  have  directly  lead  to  the  study  of  the 
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research  problem  discussed  in  this  dissertation.  Chapter  3  discusses  theoretical  work 
derived  from  the  literature  review.  Chapter  4  discusses  the  four  computational  research 
objectives.  Chapter  5  provides  a  list  of  conjectures  and  research  directions  for  future 
efforts.  Appendix  A  contains  part  of  the  computer  code  that  was  used  to  achieve  the  results 
in  Chapters  2  and  3.  Finally,  Appendix  B  contains  the  computer  code  that  was  used  to 
achieve  the  computational  research  results  in  Chapter  4. 
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II.  Literature  Review 


2.1  Chapter  Introduction 

This  chapter  first  discusses  various  methods  that  have  been  developed  to  generate  OAs 
using  ILPs.  It  then  presents  background  material  on  permutation  groups.  This  is  followed 
by  an  explanation  of  the  relationship  between  permutation  groups  as  symmetry  groups  of 
OA-generating  ILPs  and  isomorphisms  of  OAs.  This  leads  to  a  discussion  of  how  to  find 
large  subgroups  of  the  symmetry  groups  of  ILPs  more  efficiently.  The  chapter  concludes 
with  a  summary  of  the  solver  developed  by  Margot  [22]  that  takes  advantage  of  symmetry 
groups  of  ILPs  to  more  rapidly  enumerate  solutions. 

2.2  ILPs  That  Generate  OAs 

One  efficient  and  effective  approach  to  generating  OAs  is  to  formulate  an  ILP  whose 
feasible  set  is  the  set  of  all  OA{N,k,  s,t).  If  the  ILP  has  no  feasible  solution,  then  an 
OA(A,  k,  s,  t)  does  not  exist. 

Rosenberg  [29]  proved  the  following  Lemma. 

Lemma  1.  Define  a  sequence  {afi  recursively  by 


c-l 


e=0 


ao  =  A,  = /I- M(5  -  If forc>\. 


c  -  e 


(2.1) 


Let  z,  X  and  y  6  -  ,  s}^  be  row  vectors  with  0  <  d(z,x)  <  t  where  d(z,x)  is 

the  number  of  non-zero  entries  in  z  -  x.  Also,  let  =  {/  6  [I,--  -  ,k}  :  xi  4^  Zi]  and 
■/x  =  {y  6  {1,  •  •  •  ,  5}^  :  y;  =  Xi  Vf  6  7x1.  Then 


y^Jx 

d(z,y)>t 


d{z,y)  -  d{z,x)  -  1) 
d{z,  x)  * 


(2.2) 


Ny  >  0,  for  y  such  that  d(z,  y)  >  t. 
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where  N-^,  Ny  are  the  number  of  times  factor  level  combinations  x,  y  appear  in  a  conjectured 
OA(As\  k,  s,  t). 

If  we  are  given  the  values  of  for  every  x  6  {1,2,  ...,5}^  where  d(x,z)  >  t,  then 
equation  (2.2)  has  at  most  one  integer  solution  with  >  0  for  the  remaining  Nfs.  The 
system  of  linear  equations  in  equation  (2.2)  can  be  viewed  as  the  constraints  of  an  ILP  with 
equality  constraints,  where  the  objective  function  c^x  is  chosen  to  be  zero.  All  feasible 
solutions  of  this  ILP  are  the  indicator  vectors  of  all  OA(N,  k,  s,  t). 

In  a  separate  effort,  Appa  et  al.  [3]  examined  two  different  ways  to  use  a  combination 
of  constraint  and  integer  programming  to  find  p  x  p  Orthogonal  Latin  Squares  (OLS)  for 
3  <  p  <  12  and  three  p  x  p  Mutually  Orthogonal  Latin  Squares  (MOLS).  In  terms  of 
the  notation  used  here,  k  px  p  MOLS  correspond  to  an  OA(p^,  k  +  2,p,2).  Appa  et  al.  [2] 
successfully  used  an  ILP  formulation  to  generate  pxp  OLS’s  for  4  <  p  <  5  and  7  <  p  <  12. 
Additionally,  they  proved  that  6x6  OLS  do  not  exist. 

Without  the  knowledge  of  Lemma  1  in  Rosenberg  [29],  Bulutoglu  and  Margot  [7] 
used  an  ILP  formulation  to  enumerate  OAs.  They  defined  D/  to  be  the  full  factorial 
design  where  each  run  is  treated  as  a  base- 5  integer  and  placed  in  lexicographical  order. 
They  then  defined  the  indicator  vector  x  where  every  Xi  is  the  number  of  times  the  zth 
run  of  D/  appears  in  a  particular  k-factor,  5-level  fractional  factorial  design  D.  Next,  they 
defined  a  set  T  of  s‘  x  s^  matrices  obtained  by  taking  the  Kronecker  products  of  t  I^’s 
and  {k  -  t)lf ’s  in  every  possible  order,  where  1^  represents  the  s  x  s  identity  matrix  and 
1^  is  an  5  X  1  vector  of  I’s.  As  such,  |r|  =  and  every  matrix  Aj  e  T  has  the  form 
Aj  =  Miy  <S)  M2y  <S) ...  where  1  <  j  <  |r|  and  6  {1^,1^.  Finally,  they  observed 
that  for  the  set  Lj  =  {iij,  hj, ...,  itj  I  =  I4,  A^x  =  if  and  only  if  when  D  is  projected 
onto  the  factors  indexed  by  Lj,  all  5'  factor  level  combinations  appear  exactly  A  times.  This 
means  that  a  solution  to 

AjX  =  Alsi  for  X  >  0  for  j  =  1, 2, ..., 
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is  integral  if  and  only  if  OA(A^,  k,  s,  t)  exists  and  that  each  integer  solution  identifies  an 
OAiN,k,  s,t)  [7], 

Let  Tniax  be  the  maximum  number  of  times  a  factor  level  combination  can  appear  in  an 
OA(N,  k,  s,  t)  then  Lemma  5  in  Bulutoglu  and  Margot  [7]  implies  Vax  ^  Pmax,  where 

Pmax  ~  max  Lq 

s.t.  ^  ^  0<h<t,  (2.3) 

Yi  6  Z>o  for  0  <  i  <  k. 

The  computer  code  that  they  used  to  find  pmax  was  also  used  in  this  dissertation. 

Letting  be  the  (^^5'  x  1  vector  of  I’s  and  A(k,  s,  t)  be  the  x  /  matrix 

Ai 
A2 

A(k,  s,  t)  = 

Wd 

then  Theorem  2  in  Bulutoglu  and  Margot  [7]  implies  that  the  set  of  all  solutions  to  the  ILP 

min 

s.t.  A{k,  s,  t)x  =  (2.4) 

X  6  {0,  1,  2,  ...,  Pmax} 

is  precisely  the  set  of  indicator  vectors  for  all  OA(N,k,  s,t).  In  ILP  (2.4)  the  objective 
function  l^^x  was  introduced  only  for  convenience  and  is  equal  to  N  for  every  feasible 
solution. 
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Bulutoglu  and  Ryan  [8]  provided  a  more  efficient  version  of  this  ILP  that  has  only 
2^=0  ~  1)^  (^)  equality  constraints  with  no  redundant  constraints: 


min  0 


X\  >  1, 

xe{0,l,2,...,Pm.y. 


forq  =  0,  ...,t  and 
N 

—  each  subset  of  q 
indices 


(2.5) 


The  constraint  v:i  >  1  in  ILP  (2.5)  ensures  that  (0, 0, ...,  0)  appears  at  least  once  and  helps 
the  solver  find  feasible  solutions  faster  [8].  Using  0  as  the  objective  function  also  speeds  up 
the  enumeration  process.  The  algorithm  in  Figure  2. 1  summarizes  how  to  utilize  ILP  (2.5) 
to  enumerate  all  OA(A^,  k,s,t). 


1 .  Input  N,  k,  s  and  t.  Let  T  =  0. 

2.  Determine  pmax  using  ILP  (2.3). 

3.  Find  the  set  of  all  feasible  solutions  X  to  ILP  (2.5). 

4.  For  each  solution  e  X, 

(a)  Let  the  factor  level  combination  (/j, ...,  4)  appear  in  ^ 

(b)  SetT  =  TuT<;. 

5.  Return  T. 


many  times. 


Figure  2.1:  Improved  Bulutoglu  and  Margot  ILP  [8]  Based  Algorithm 


An  additional  formulation  for  strength-2  OAs  arises  from  Hadamard  matrices.  A 
Hadamard  matrix  is  an  orthogonal  N  x  N  matrix  with  entries  that  are  either  -1  or  -fl. 
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For  any  n  G  Z>o,  OA(4n,  An  -  1, 2, 2)  exist  if  and  only  if  there  exists  a  Hadamard  matrix  of 
order  An  [13].  This  is  true  because  deleting  the  column  of  all  +rs  from  a  A  x  A  Hadamard 
matrix,  results  in  an  OA(A,  A  -  1, 2, 2)  where  the  levels  are  coded  as  -1  and  +1  (Hadamard 
matrices  exist  only  if  N  is  divisible  by  4). 

Williamson  [34]  defined  Williamson  matrices  to  be  any  four  nx  n  circulant  matrices 
Wi,  W2,  W3  and  W4  with  entries  equal  to  -1  or  +1  such  that 

W?  +  =  Anln. 


Using  the  Williamson  matrices,  a  An  x  An  Hadamard  matrix  H4„  is  constructed  as 


H 


■4n 


Wi 

W2 

W3 

W4 

-W2 

Wi 

W4 

-w 

-W3 

-W4 

Wi 

W2 

-W4 

W3 

-W2 

Wi 

(2.6) 


+  T^  +  T^  + 


Let  o)-’  be  the  primitive  jth  root  of  unity  and  toj  =  co^  +  Williamson  [34]  showed  that 
Williamson  matrices  exist  if  and  only  if 

An 

where  each  Ti  has  the  form  1  +  2my,  +  ±  ...  and  each  coj  appears  only  once  in  only  one 

member  of  the  set  [Ti,  r2,  r3,  r4}.  Noting  that  =  cos(^j+  sin  leads  to  the 
following  theorem: 


Theorem  1.  Let  where  n  is  an  odd  integer,  I  \  n,  fik,i  +  0,  and  iik,i  = 

I  -  I  /  •  \ 

ZiJo  4cos  j  (ti2k  -  tilk).  Williamson  matrices  of  order  n  exist  if  and  only  if  there  is  at 
least  one  feasible  solution  to  the  following  system  of  equations  in  tijk 


4  (LiJ 


k=l 
4  2 


k=l  (=0 


n 


=  An  for  1 1  n. 


'Yj'Yjhjk  =  ^  for  z  =  1,2,..., 


k=l  ,7=1 


tijk  &  {0,1}  for  z  =  1,2,..., 


2J 


n 

2J’ 

,  j  =  1,2  and  k  =  1,2, 3,4. 


(2.7) 
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The  nonlinear  constraints  in  constraints  (2.7)  can  be  linearized  as  follows.  First,  using 


=  hjk,  expand  the  constraints: 


4  (LiJ 


k=\  k=\  i=0  '  ' 

4  (LfJ 


(tiik  -  tiik) 


LfJ  ' 

^ '  1  (tiik  +  Uik  -  '^Uiktiik) 


cos 


k=\  ( ;=o 


+ 


32  E 


k=\ 


E 

i'<i" 

V-"4iJ 


n  ) 
Ini'l 


(2.8) 


j 


cos 


2m"l 


{ti'2kti"2k  ~  ti'2kti"lk  ~  ti'\kti"2k  +  ti'\kti"\k) 


Next,  y{i^jiki)(i2jik2)  —  hijikih2j2k2^  Constraints  0  <  +  ti^j^k2  '^yihjihWihh)  —  ^ 

for  each  y{njikx){i2j2k2)  substitute  the  y(hj^ki){i2j2k2)^  into  equalities  (2.8).  The  nonlinear 
system  of  equations  (2.7)  is  now  written  as  the  linear  system  of  constraints  (2.9): 


4  (LfJ 


k=\  (  1=0 


2nil\ 


4n  -  16  ^  ^  cos^  (~^)  ~  '^y(i2k){ak)) 


+ 


32  E 


k=l 


E 

<i" 

LfJ 


V  <1‘ 

\  i"  < 


2ni'l 


cos 


2m''l 


iy(i'2k)(i"2k)  -  y(i'2k){i"lk)  -  y{i’lk){i"2k)  +  y (i' lk)(i"  Ik)) 


for  1 1  n. 


'^y(iij\h)(hhk2)  ^hhh  ^hhh  —  Li 

Uijiki  +  U2i2k2  ~  ^y{iijiki){i2j2k2)  —  L 


for  each  y(iijiki)(i2j2k2)'’ 


E  E  ^ 


for  i  =  1,2, 


y(hjlki)(i2j2k2)  ^  LOj  l}j  ^ijk  ^  {0^  1}  fm"  ^  ~  2, 


,  7  =  1,2  and  k  =  1,2, 3,4. 

(2.9) 


Hence,  the  system  of  quadratic  constraints  (2.8)  with  4n  -  4  binary  variables  is  turned  into 
a  linear  system  of  constraints  with  4n  -  4  +  4  |^|J  +  4^L2J j  =  (^2  _  +  4^-4  binary 

variables.  Combining  Theorem  1  and  Example  9.1  in  Seberry  and  Yamada  [31]  leads  to 
the  algorithm  in  Figure  2.2. 
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1 .  Let  n  e  Z>o,  N  —  An,  and  |  i  Z>o.  Let  U  be  an  empty  set  of  OA(N,  N  -  1,2,2). 

2.  Find  all  solutions  to  the  Binary  Integer  Linear  Program  (BILP)  (using  constraints  (2.9)): 
min  0 


4  (LIJ 


s.t.  4n  =  16^|^cos^(^j{r/2i  + 


k=l 


z 

i'  <i" 

■"45J 


2m' l\  I2.m"l. 

cos  I  - I  cos  I  -  I  (y{i>2k){i"2k)  -  y{i'2k)(i"\k)  “  y{i'\k){i"2k)  +  y(i'\k){i"\k)) 


for  1 1  n 


'^y(.iij\h){‘ihh)  fhhh  —  ^ 

li\jiki  +  Ihjiki  ~  '^y(hjiki)(iijik2)  —  1 
4  2 

for/=  1,2, 

k=i  j=\ 


for  each  Vf,, 


yihjikiXhjiki)^ 


,7=  l,2and;t=  1,2,3, 4. 


yihjikiXhjiki)  ^  (O’  1)’  ^‘jk  ^  {0,  1)  for  i  -  1,2,  ..., 

L  Z-  J 

(2.10) 

3.  Let  Y  be  the  set  of  all  solutions  to  ILP  (2.10)  and  =  {(ijkq)  e  Y  be  the  ^th  solution  to  ILP  (2.10). 
Let  W liq  for  k  =  1 , 2, 3, 4  be  the  set  of  Williamson  matrices  calculated  from  the  solution  Y^.  Also,  let 
kVkj.q  denote  the  /*  element  of  the  first  row  of  Finally,  let  be  the  4n  x  4n  Hadamard  matrix 
calculated  from  the  W^^’s. 

4.  For  each  to  e  Y 


(a) 

Set  Wk.l.q  -  1,  WkJ.q  -  t(j-l)Xk,q  “  t(j- 

i),i, k,q  and 

Wk,n-j+2,q  - 

1,2,3, 4. 

Wk,l,q 

Wk,2,q  ■ 

Wk,n,q 

kVk,n,q 

Wk,\,q  ■ 

■  ■  Wk,n-l,q 

(b) 

For  each  k  -  1,2, 3,4,  = 

Wk,n-l,q 

Wk,n,q  ■ 

■  ■  Wk,n-2,q 

kVk,2,q 

k^k.Xq  • 

■  ■  ^k,l,q 

(c)  Use  equation  (2.6)  to  calculate  using  the  Wj^^’s  found  in  previous  step.  Update  by 
removing  its  first  column  and  set  U  =  U  U  (h^I- 


5.  Return  U. 

Figure  2.2:  Algorithm  to  Generate  OA(N,  N  -  1, 2, 2)  from  Williamson  Matriees 
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The  most  efficient  ILP  formulations  for  enumerating  all  OA(A^,  k,  s,  t)  extend  all 
OA(A,  i,  s,  t)  to  all  OA(A,  <i  <k-l.  Bulutoglu  and  Ryan  [8]  demonstrated  a 

BILP  formulation  that  extends  a  given  OA(A,  k-\,s,t)  to  all  possible  OA(A,  k,  s,  t).  Their 
BILP  formulation  is  based  on  the  following  lemma  in  [8] 


Lemma  2.  Let  D  be  a  N-run,  k-factor,  s -lev  el  factorial  design  with  columns  {di,d2, 

Let  D'  be  the  N  x  (s  -  l)k  matrix  with  columns  {d\,d'2,  where  for  j  =  1, 2, k 

and  r  =  1,2, ...,  5-1  the  ith  entry  is  1  if  the  ith  entry  ofdj  is  r  -  I  and  is  0 

otherwise.  Then  D  is  an  OA(N,  k,  s,  t)  if  and  only  if 

=  ^  forq=l,2,---  ,t,  (2.11) 

and  for  all  subset  of  size  q  columns  o/D'  such  that  r^,v/(5-l)] 

\hj,i{s-\)\  M  \  <r  <f  <{s-\)k. 


Let  D'  be  a  solution  to  the  system  of  equations  (2. 1 1).  Let  the  j’th  column  of  D,  Dy  be 


i-i 


Dj  -  l)d(^_i)(^-_i)+;.  +  (5  1)  Iw  d( 


^-1  ^ 
(i-l)0-l)+r 


r=l  \  r=\  ) 

for  7  =  1,2, ...,  k  [8].  Then,  D  is  the  corresponding  OA(N,  k,  s,  t)  obtained  from  D'.  For  a 
known  A-run,  (A:-  l)-factor,  5-level  OA(A,  A:- 1,  5,  t)  D,  Bulutoglu  and  Ryan  [8]  showed  that 
all  OA(A,  k,  5,  t)  extensions  of  D  can  be  constructed  by  utilizing  a  BILP  via  the  algorithm 
described  in  Figure  2.3.  All  possible  extensions  of  all  OA(A,  k-  1,  5,  t)  to  all  OA(N,  k,  s,  t) 
are  obtained  by  implementing  the  algorithm  in  Figure  2.3  with  each  OA(A,  k-  1,  5,  t)  D  as 
input. 
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1 .  Follow  Lemma  2  to  construct  D'  from  input  D. 

2.  Append  to  D'  s-1  columns  of  binary  variables  =  (xir,  X2r,  -VATr)^  for  each  r  =  1,2,  (The 

system  of  equations  (2.11)  is  linear  with  binary  variables.) 

3.  For  each  pair  of  replicated  run  indices  1  <  /"  <  j"  <  N  in  the  input  design  and  for  any  q  -  1  columns 

...,  ^  as  in  Lemma  2  with  the  last  (s  -  1)  columns  of  D  deleted,  find  all  feasible  solutions 

to  the  BILP 


min  0 

AT 

S.t.  =  7 

for  r  =  1,2, ...,  s  -  1, 

Xi  <hd'h2  ■  ■  ■  ^  for  ^  =  2, ., 

i=  1 

,.,  t  and  r  -  1,2, ...,  s  -  1, 

s~l 

VI 

Sv 

K 

for  /  =  1,2,...,  A, 

r 

^  ^  ~  ^j"m^  —  0 

m=l 

for  r  =  1,2, ...,  s  -  1, 

•^1,1  =  1, 

X,  e{0,l)^ 

for  r  =  1,2, ...,  s  -  1. 

4.  Each  solution  matrix  [xi,X2,  ...,Xj_i]  to  BILP  (2.12)  corresponds  to  an  OA(N,k,  s,t)  extension  of  the 
input  OA{N,  k-  1,  s,  f)  and  every  extension  corresponds  to  a  solution  matrix. 

Figure  2.3:  Identity  Group  Algorithm  from  Bulutoglu  and  Ryan  [8] 


Bulutoglu  and  Ryan  [8]  combined  the  ILP  formulations  in  Figures  2.1  and  2.3  to  create 
another  formulation  that  extends  all  OA(N,k  -  1,  5,  t)  to  all  OA(N,k,  s,  t)  as  in  the  above 
algorithm.  This  new  formulation  reduces  the  number  of  variables  from  in  ILP  (2.5)  to 
hs,  where  h  is  the  number  of  distinct  runs  in  the  extended  OA{N,  k-l,s,t).  This  additional 
extension  formulation  is  described  in  Figure  2.4. 
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1.  Follow  Lemma  2  to  construct  D'  from  input  D.  Let  r,  for  i  =  1,2,  •••  ,  be  the  number  of 

times  the  /th  row  of  appears  in  the  input  design,  where  is  all  the  level  combinations 
with  k  -  I  factors  ordered  lexicographically.  Set  h  equal  to  the  number  of  distinct  runs  in  D.  Let 
1  <  /i  <  /2  <  •  ■  ■  <  4  ^  ^  be  such  that  r,-,  >  0  for  I  —  1 , 2,  •  •  •  ,h. 

2.  Define  1  -  pi  <  p2  <  ■■■  <  Ph  ^  N  such  that  the  p;+ith  row  is  the  first  row  that  differs  from  the 

p;th  row.  Also,  let  x  be  the  indicator  vector  for  the  desired  OA(N,  k,  s,  f)  formatted  as  a  solution  to 
ILP  (2.5)  and  ^  with  all  of  the  entries  that  do  not  appear  in  the  constraint  matrix  of  ILP  (2.13) 

deleted.  This  leaves  the  vector  with  h{s  -  1)  entries. 

3.  For  any  q  —  \  columns  ^  as  in  Lemma  2  with  the  last  (s  -  1)  columns  of  D'  deleted, 

find  all  solutions  to  ILP  (2.13). 

min  0 

h 

S.t.  ^  , 

/-I 

h 

^  ^piai^pia2  '  '  ■  ^p[a^-i^(.h-'^)s+j  “ 

/-I 

s-l 

—  L'/,  (2.13) 

M 

Xl  >  1, 

X(, •_!),+;  e  {0, 1,  ...,min(r,- ,pmax)) , 

for  ^  =  2, ...,  f,  7  =  1,2, ...,  s  -  1,1  -  1,2,  ...,h  and  laii/(s  -  1)1  [«//(*  “  1)] 

V  l<i’  <f  <(s-l)(k-l). 

4.  Each  solution  x*b^i)  corresponds  to  an  OA{N,  k,  s,  f)  extension  of  the  input  OA(N,  k-l,s,t)  and  every 
such  extension  corresponds  to  a  solution. 

Figure  2.4:  Extension  to  Improved  Bulutoglu  and  Margot  ILP  [8] 


Permuting  the  levels  (symbols)  of  a  factor  in  a  factorial  design  is  called  a  level 
permutation.  Two  A:-factor  factorial  designs  are  called  isomorphic  if  one  can  be  obtained 
from  the  other  by  permuting  its  columns,  rows,  and  applying  level  permutations  in  its 
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factors.  For  a  given  5-level,  A:-factor,  A^^-run  factorial  design  D,  Bulutoglu  and  Ryan  [8] 
defined  a  graph  G(D).  They  showed  that  Di  and  D2  are  isomorphic  designs  if  and  only 
if  G(Di)  and  G(D2)  are  isomorphic  graphs.  The  following  steps  extend  the  algorithm  in 
Figure  2.4  to  enumerate  all  non-isomorphic  OA(N,  k,  s,t)  for  t+l  <  k  <  kynax(N,  s,  t),  where 
kmax(N,s,t)  is  the  maximimum  number  of  factors  such  that  an  OA(N,kniax(N,  s,t),  s,t) 
exists. 


5.  If  there  are  no  solutions,  STOP. 

6.  Convert  each  OA(N,  k,  s,  f)  from  Step  4  to  the  graph  defined  by  Bulutoglu  and  Ryan  [8].  Let  Q  be  the 
set  of  resulting  graphs. 

7.  Reduce  O  to  a  set  of  nonisomorphic  graphs  by  using  Nauty  [25]. 

8.  Retain  only  the  OA(N,  k,  s,  f)’s  that  correspond  to  the  retained  graphs. 

9.  Set  k  —  k  +  I  and  GO  TO  Step  1. 

Figure  2.5:  Additional  Steps  to  Figure  2.4  to  Enumerate  Non-Isomorphic  OA(N,  k,  s,  t)  [8]. 

For  5  =  2,  the  following  definitions  and  theorem  were  used  by  Bulutoglu  [6]  to  extend 
the  algorithm  in  Figure  2.4  to  find  the  maximum  number  of  factors,  k^^x  such  that  an 
OA(A,  k^ax,  2,  t)  exists. 

Definition  1.  Let  Yi  and  Y2  be  1-level,  k-factor  factorial  designs  whose  levels  are  +1. 
Then,  Y 1  andY2  are  called  Hadamard  equivalent  ifY2  can  be  obtained  from  Y 1  by  applying 
signed  permutations  to  the  columns  and/or  rows  ofY\  [24]. 

Definition  2.  Let  Xi  and  X2  be  1-level,  k-factor  factorial  designs  whose  levels  are  +1. 
Then,  Xi  and  X2  are  called  Orthogonal  Design  (OD)  equivalent  if  [1  X2]  is  Hadamard 
equivalent  to  [1  XJ  [6]. 

Bulutoglu  [6]  showed  the  following  result: 
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Theorem  2.  Let  ki  <  k2  and  Xi  be  an  OA( N,ki,2,t)  that  extends  to  an  OA( N,  k2,2,t).  If  X2 
is  an  OA(N,  k\,  2,  t)  that  is  OD  equivalent  to  Xi,  then  X2  also  extends  to  an  OA(N,  k2, 2,  t). 

For  a  2-level,  A:-factor,  A^-run  design  Yi,  McKay  [24]  defined  a  graph  X(Yi)  with 
2(k  +  N)  vertices  and  showed  that  Yi  is  Hadamard  equivalent  to  Y2  if  and  only  if  X(Yi) 
and  X  (Y2)  are  isomorphic  graphs. 

For  5  =  2,  the  algorithm  in  Figure  2.5  is  modified  to  find  a  set  of  all  non-OD  equivalent 
OA(A^,  k,  2,  t)  for  k  <  k^^xiN,  2,  t)  by  replacing  Step  6  with  the  following  step: 


6.  Add  a  column  of  I’s  to  each  OA(N,  k,  2,  f)  from  Step  4.  Convert  each  resulting  design  to  the  graph 
defined  by  McKay  [24].  Let  O  be  the  set  of  resulting  graphs. 


Figure  2.6:  New  Step  6  in  Figure  2.5  Algorithm  to  Find  k^^^xiN,  2,  t)  [6]. 


The  modified  Figure  2.5  algorithm  is  faster  as  it  requires  solving  much  fewer  ILPs  at  each 
extension  step.  Also,  a  set  of  all  non-isomorphic  OA(N,  k,  2,  t)  can  be  extracted  from  a  set 
of  non-OD  equivalent  OA(A,  k,  2,  t).  Hence,  the  modified  Figure  2.5  algorithm  can  be  used 
to  enumerate  all  non-isomorphic  OA(N,  k,  2,  t)  for  k  <  k^^JN,  2,  t). 

These  are  just  a  few  different  ways  that  ILPs  are  used  to  enumerate  OAs.  The  next 
section  defines  the  symmetry  group  of  an  ILP. 

2.3  Symmetry  Groups  in  ILPs 

In  order  to  study  the  symmetries  of  an  ILP,  some  definitions  are  introduced.  7"  = 
{/  6  Z>o  \  i  <  n]  is  the  ground  set  of  size  n.  Let  be  the  set  of  all  permutations  of 
the  elements  in  7”.  Let  ;r,  be  the  image  of  i  6  7”  under  the  permutation  n.  The  identity 
permutation  I  is  such  that  nt  =  i  V  /  6  7".  For  any  v  G  M”,  let  w  =  7t(\)  indicate  the 
vector  w  G  M”  that  results  from  applying  the  permutation  :7r  to  v.  For  any  two  permutations 
7T\n^  G  Sn,  the  composition  of  these  two  permutations  is  ;7r^(7r^).  The  common  notation 
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for  this  is  The  identity  for  the  composition  of  permutations  is  the  aforementioned 

identity  permutation  7,  where  n  ■  I  =  I  ■  n  =  n  ^  n  e  S n-  For  any  n^,n^,n^  &  Sn, 
(n^  ■  7T^)  ■  7T^  =  TT^  ■  (n^  ■  n^)  i.e.  the  composition  of  permutations  is  associative  [23]. 

The  subset  G  c  is  called  a  group  if  it  has  the  following  properties: 

1.  7  e  G. 

2.  ;7r^  •  TT^  6  G  V  7r\  ;7r^  6  G. 

3.  For  all  n  e  G,  there  exists  a  unique  inverse  ;7r“^  6  G  such  that  n  ■  7r~^  =  n~^  ■  n  =  I. 

The  number  of  permutations  in  G  is  called  the  order  of  the  group,  denoted  by  |G|.  For 
example,  |S„|  =  n\.  A  subgroup  is  a  subset  of  G  that  is  also  itself  a  group.  All  groups  in 
this  dissertation  have  finite  order,  as  their  elements  are  permutations  of  finite  sets  [23]. 

Margot  [23]  defined  the  symmetry  group  G  of  an  ILP  as 

G  =  (;7r  G  I  c^x  =  c^n(x)  and  7r(x)  eT  V  x  6  T], 
where  T  is  the  set  of  all  feasible  solutions  to  the  ILP.  Elements  of  a  set  Q  c  which  can 
be  composed  in  some  way  some  number  of  times  to  obtain  each  permutation  in  the  group 
G  Q  Sn,  are  called  generators  of  the  group  G,  and  G  is  said  to  be  generated  by  Q..  A  set 
of  0(n^)  generators  is  all  that  is  needed  to  generate  any  subgroup  of  [23].  Additionally, 
the  stabilizer  of  a  vector  v  G  M”  under  G  is 

stab(v,  G)  =  [;7r  G  G  I  v  =  7r(v)} 
and  the  orbit  of  a  vector  v  G  M"  under  G  is 

orb(v,  G)  =  [w  G  M"  I  w  =  :7r(v)  for  at  least  one  tt  g  G  c  5„}. 

The  restriction  of  G  to  7  is  the  set  of  all  permutations  of  just  the  elements  of  a  nonempty  set 
7  c  {1, 2, ...,  n)  that  are  induced  by  the  permutations  in  stab(7,  G).  The  restriction  is  itself 
a  group.  Finally,  v  G  M”  is  lexicographically  smaller  (larger)  than  w  G  M”  if  vj  =  Wj  and 
Vk  <  Wk  (vk  >  Wk)  for  some  k  with  1  <  j  <  k  and  1  <  k  <  n.  The  notation  for  this  is  v  <l  w 
(v  >L  w)  [23]. 
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The  definitions  provided  in  this  seetion  provide  a  framework  for  the  diseussions  in  the 
next  seetion.  Next  seetion  diseusses  how  symmetry  groups  in  OA-generating  ILPs  relate  to 
isomorphism  of  OAs. 

2.4  Symmetry  in  ILPs  and  Isomorphism  of  OAs 

As  previously  diseussed,  OAs  are  known  to  be  universally  optimal  for  estimating 
eertain  statistieal  models  [35].  It  is  well  known  that  isomorphie  designs  have  the  same 
GWP.  Thus,  the  GMA  property  is  invariant  between  isomorphie  designs.  It  is  often  quite 
diffieult  to  determine  whether  an  OA(A,  k,  s,  t)  exists  for  a  given  N,  k,  s,  t  eombination. 
However,  if  one  OA(N,k,  s,t)  is  found,  it  is  just  a  matter  of  permuting  symbols,  rows 
and/or  eolumns  to  find  other  OAs  that  are  isomorphie  to  this  OA. 

Additionally,  sinee  the  ILPs  of  interest  are  eonstrueted  to  generate  OAs  that  are 
isomorphie  to  many  other  OAs,  these  ILPs  all  eontain  variables  that  ean  be  permuted 
without  ehanging  the  problem.  Any  ILP  that  eontains  at  least  some  variables  that 
ean  be  permuted  without  ehanging  the  feasibility  and  optimality  of  its  solutions  is  said 
to  be  symmetric.  Many  elassieal  problems  in  operations  researeh,  eombinatories  and 
statistieal  experimental  design  are  formulated  as  symmetrie  ILPs.  In  addition  to  generating 
orthogonal  arrays,  symmetrie  ILPs  are  frequently  eneountered  in  job  seheduling,  eode 
eonstruetion,  eovering  design  eonstruetion  and  graph  eoloring  problems  [23]. 

There  are  a  number  of  eommereial  and  aeademie  solvers  available  that  are  designed  to 
find  all  optimal  solutions  to  ILPs.  The  Braneh-and-Bound  and  Braneh-and-Cut  algorithms 
are  eommonly  used.  Several  researehers  have  been  sueeessful  in  using  variations  of  these 
algorithms  to  generate  OAs  from  symmetrie  ILPs  (see  [2],  [3],  [8],  and  [7]). 

For  symmetrie  ILPs,  many  of  the  subproblems  in  the  ILP  enumeration  tree  are 
isomorphie,  meaning  that  a  substantial  amount  of  eomputational  effort  is  wasted  on  solving 
subproblems  that  are  identieal  to  eaeh  other  [23].  Henee  for  symmetrie  ILPs  with  large 
symmetry  groups,  it  ean  be  very  diffieult  to  find  optimal  solutions  or  prove  infeasibility 
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using  the  classical  algorithms.  Margot  [22]  developed  a  solver  that  eliminates  evaluation 
of  isomorphic  subproblems  in  the  ILP  enumeration  tree,  thereby  greatly  speeding  up  the 
enumeration  of  the  ILP  solutions.  The  Margot  ILP  solver  [22]  exploits  the  symmetry  group 
of  an  ILP  in  pruning  its  enumeration  tree. 

Bulutoglu  and  Margot  [7]  defined  the  isomorphism  group  Gs,k  of  a  k  factor,  5-level 
design  D  to  be  the  group  of  all  permutations  of  factors  as  well  as  permutations  of  levels 
within  each  factor  in  D.  The  definition  of  does  not  mention  runs.  This  is  because 
run  order  is  irrelevant  when  a  factorial  design  is  viewed  as  a  set  of  frequencies  for  the 
set  of  distinct  runs  possible  in  the  design  [7].  There  exists  an  element  g  6  Gs^k  such  that 
g(xi)  =  X2  if  and  only  if  Xi  and  X2  are  the  indicator  vectors  of  isomorphic  designs  Di 
and  D2.  Note  that  |Gi,t|  =  kl(sl)''  and  Gs,k  -  S ^  ^  S k,  where  ;  is  the  wreath  product. 
Bulutoglu  and  Margot  [7]  showed  that  the  Branch-and-Cut  with  isomorphism  pruning 
algorithm  in  Margot  [22]  returns  exactly  one  OA{N,  k,  s,  t)  for  each  isomorphism  class  if  it 
uses  the  group  Gs,k  [7]. 

The  automorphism  group  of  an  ILP  of  the  form 

min  c^x 

s.t.  Ax  =  b,  (2.14) 

d  >  X  >  0,  di,  Xi  6  Z>o, 

is  defined  as 

G  (A,  b,  c,  d)  =  [tt  e  S'n  |  n{c)  =  c,  7r(d)  =  d  and  3  cr  €  5^  :  A{n,  cr)  -  A  and  crfb)  =  b) ,  (2.i5) 

where  A  (n,  cr)  is  the  matrix  obtained  by  permuting  the  rows  of  A  according  to  cr  and 
columns  according  to  n.  Bulutoglu  and  Margot  [7]  proved  the  following  theorem: 

Theorem  3.  For  ILP  ( 2.4 ),  let  G(A,  Al,l,  Pmaxl)  be  the  automorphism  group  of  the  ILP,  Gs,k 
be  the  isomorphism  group  of  an  OA(N,  k,  s,  t)  and  S  be  the  set  of  all  possible  permutations 
o/{l,2,  ...,5^}.  Then,  G^x  c  G(A, 31, 1, pmaxl)/or 0  <  t  <  kandGs,k  c  G(A, 31,  l,pmaxl)  = 
S  sk  Otherwise. 
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Margot  [23]  declares  two  solutions  to  ILP  (2.14)  to  be  isomorphic  if  one  can 
be  obtained  from  the  other  by  applying  a  permutation  belonging  to  the  automorphism 
group  G(A,  b,c,d).  Bulutoglu  and  Margot  [7]  used  the  isomorphism  pruning  integer 
programming  solver  developed  by  Margot  [22]  to  enumerate  all  non-isomorphic  orthogonal 
arrays  for  many  N,  k,  s,  t  combinations.  Their  enumeration  was  based  on  finding  all  non¬ 
isomorphic  solutions  to  ILP  (2.4)  using  the  group  G{A,X\,  1,  j!?maxl)-  This  was  allowed,  as 
in  all  the  cases  they  considered,  =  |G(A,  Al,  l,;?maxl)l- 

The  results  obtained  by  Bulutoglu  and  Margot  [7]  based  on  Theorem  3  indicate  that 
there  are  major  efficiencies  to  be  gained  by  using  the  isomorphism  pruning  method  in 
Margot  [22]  to  solve  ILPs  of  the  form  in  ILPs  (2.4)  and  (2.13).  However,  in  order  for 
the  Margot  ILP  solver  [22]  to  be  more  effective,  an  efficient  methodology  for  identifying 
all  symmetries  in  ILPs  is  required. 

2.5  Identifying  Symmetries  in  ILPs 

Clearly,  the  automorphism  group  of  an  ILP  of  the  form  (2.14)  is  a  subgroup  of  its 
symmetry  group.  However,  there  is  no  guarantee  that  all  symmetries  of  such  an  ILP 
will  be  captured  by  its  automorphism  group.  In  fact,  it  is  easy  to  construct  examples  of 
ILPs  with  equality  constraints  only  in  which  the  symmetry  group  is  much  larger  than  the 
automorphism  group.  On  the  other  hand,  identifying  the  full  symmetry  group  G  for  an  ILP 
formulation  is  a  difficult  open  problem. 

Therefore,  it  is  worthwhile  to  develop  techniques  to  find  a  set  of  generators  of  the 
symmetry  group  for  any  ILP.  The  most  difficult  obstacle  to  overcome  when  developing  such 
a  technique  is  that  the  makeup  of  G  is  inherently  determined  by  the  ILP’s  feasible  set  [23]. 
For  example,  the  definition  of  a  symmetry  group  says  that  G  =  for  an  infeasible  ILP 
with  n  variables.  Margot  [23]  proved  that  deciding  if  G  =  is  an  NP-Complete  problem. 
Hence,  finding  the  symmetry  group  G  of  an  ILP  is  NP-Hard.  Assuming  P  4^  NP,  there  is 
no  way  to  find  a  polynomial-time  algorithm  for  finding  generators  of  G.  One  approach  that 


23 


is  often  effective  is  to  find  the  symmetry  group  of  the  LP  relaxation  of  the  ILP.  Margot  [23] 
defined  this  group  as  the  set  of  all  permutations  of  the  LP  that  send  feasible  points  to 
feasible  points  with  the  same  objective  function  value.  is  the  set  of  all  permutations 
that  send  facets  of  the  LP  relaxation  to  facets  and  fixes  the  objective  function  provided  that 
the  LP  relaxation  is  full  dimensional.  Then  for  an  ILP  in  the  form 

min  c^x, 

s.t.  Ax  >  b,  (2.16) 

X  6  Z^o, 


G(A,  b,  c)  =  G^^  provided  that  the  LP  relaxation  of  the  ILP  has  no  redundant  constraints 
and  contains  interior  points  (i.e.  it  is  full  dimensional).  On  the  other  hand,  for  an  ILP  of  the 
form  (2. 14),  all  we  can  say  is  G(A,  b,  c)  <  G^^.  In  Chapter  4,  methods  are  developed  to  find 
G^^  for  ILPs  with  equality  constraints  only.  G^^s  of  LPs  with  equality  constraints  have  not 
yet  been  studied  in  the  literature.  T(k,  s,  t)  Q  T(k,  s,  implies  G^^  <  G  as  non-integer 
solutions  in  T{k,  s,  t)^^  can  break  symmetries  that  would  otherwise  be  present  in  G  [23].  It 
is  possible  that  working  with  G^^  may  be  less  efficient,  but  for  most  ILP  formulations  of 
OAs  are  such  that  G^^  is  either  a  large  subgroup  of  G  or  it  is  equal  to  G  itself. 

Now,  consider  the  matrix 


L  = 


0  A^ 
A  0 


where  A  is  the  (0, 1)  ILP  (2.16)  constraint  matrix.  The  matrix  L  can  be  seen  as  the 
adjacency  matrix  of  a  bipartite  graph  K  with  colored  vertices.  K  has  one  vertex  for  each 
row  and  one  vertex  for  each  column  of  A.  The  set  of  vertices  for  the  rows  constitute  one 
side  of  the  bipartition  and  the  vertices  for  the  columns  constitute  the  other.  Two  column 
(row)  vertices  in  K  have  the  same  color  if  and  only  if  their  corresponding  objective  function 
(right  hand  side)  coefficients  are  equal.  Margot  [23]  showed  that  the  automorphism  group 
of  K  is  equal  to  G(A,  b,  c).  (The  automorphism  group  of  a  vertex  colored  graph  is  the  set  of 
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all  permutations  of  its  vertices  that  send  adjacent  vertices  to  adjacent  vertices  and  preserve 
colors.) 

In  cases  where  the  ILP  constraint  matrix  A  is  not  (0, 1),  there  are  many  mappings  of  the 
ILP  to  an  edge  colored  vertex  colored  graph  such  that  the  color  preserving  automorphisms 
of  the  graph  correspond  to  the  symmetries  of  the  ILP  One  example  in  the  literature 
is  in  [30].  In  this  work,  the  code  created  by  Bulutoglu  and  Ryan  [8]  is  used  for  this 
purpose.  The  problem  of  determining  the  automorphism  group  of  a  graph  is  at  least 
as  computationally  complex  as  the  famous  Graph  Isomorphism  problem  [23].  However, 
there  are  software  packages  available  such  as  Nauty  [25]  and  GAP  [12]  that  can  solve  this 
problem  in  most  instances. 

2.6  Margot  ILP  Solver  [22] 

The  Margot  ILP  solver  [22]  utilizes  a  modified  version  of  the  Branch-and-Cut 
algorithm  for  solving  ILPs.  The  modification  is  in  the  pruning  step.  Instead  of  pruning 
just  one  subproblem,  the  Margot  ILP  solver  [22]  prunes  the  entire  set  of  isomorphic 
subproblems.  For  ILPs  whose  symmetry  groups  are  large,  this  modification  greatly 
increases  the  efficiency  of  the  Branch-and-Cut  if  one  is  able  to  exploit  a  large  subgroup 
of  the  symmetry  group. 

Margot  developed  his  modified  Branch-and-Cut  algorithm  over  a  series  of  papers 
[19],  [20],  [21]  and  [22].  The  reader  is  referred  to  [21]  for  the  most  basic  version  of  his 
Branch-and-Cut  algorithm  for  binary  ILPs.  In  [19],  he  made  his  algorithm  more  efficient  by 
introducing  zero  setting.  In  [20],  he  incorporated  strict  zero  setting  and  ranked  branching. 
In  [22],  he  generalized  his  algorithm  in  [20]  to  bounded  ILPs  where  each  variable  is 
bounded  by  a  constant. 

The  next  chapter  discusses  theoretical  work  that  lead  to  the  research  objectives  and 
results  listed  in  Chapter  4. 
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III.  Theoretical  Research 


3.1  Chapter  Introduction 

This  chapter  dicusses  the  theoretical  research  efforts  based  on  the  review  of  current 
literature  provided  in  Chapter  2.  In  Section  3.2,  Lemma  1  is  used  to  define  the  linear 
relaxation  orthogonal  array  polytope  of  an  OA(/l5',  k,  s,  t).  An  OA(/l5^  k,  s,  t)  exists  if 
and  only  if  its  linear  relaxation  orthogonal  array  polytope  contains  integer  vectors  where 
each  integer  vector  represents  an  OA(As‘,k,  s,t).  In  this  section,  it  is  shown  that  the 
stated  formulation  defining  the  linear  relaxation  orthogonal  array  polytope  does  not  contain 
redundant  inequalities.  This  implies  that  each  inequality  is  a  facet.  In  Section  3.3,  a 
large  subgroup  of  all  the  permutation  symmetries  of  the  linear  relaxation  orthogonal  array 
polytope  of  OA(/l5^  k,  s,  t)  is  found.  It  is  shown  that  the  subgroup  found  is  equal  to  the 
group  of  all  the  permutation  symmetries.  This  result  is  computationally  verified  for  many 
cases. 


3.2  The  Linear  Relaxation  OA  Polytope 

The  following  theorem  follows  immediately  from  Lemma  1  in  Section  3.2  by  taking 
z  =  1  and  observing  that  >  0. 

Theorem  4.  Let  {ad  and  be  as  in  Lemma  1.  Let  0  <  J(l,  x)  <  t  and 

Ny>0, 

where  =  (ye  { 1,  •  •  •  ,5}^  :  yi  =  Xi  Vi  e  I^}.  Then  an  OA(As‘,  k,  s,  t)  exists  if  and  only  if 
there  exist  integers  Ny  satisfying  the  inequalities  (3.1). 

Theorem  4  converts  the  Bulutoglu  and  Margot  [7]  ILP  with  equalities  to  an  ILP 
problem  with  inequalities  only.  This  is  done  by  deleting  the  set  of  basic  variables  with 


\Ny  >  0, 


(3.1) 
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d(x,  \)  <  t  after  implementing  Gaussian  elimination.  Deletion  of  these  variables  is  only 
possible  because  the  coefficients  of  all  A^x  are  1  and  the  coefficients  of  Ny  with  d{y,  \)  >  t 
are  all  integers  at  the  end  of  Gaussian  elimination.  The  substance  of  Lemma  1  from  [29] 
is  that  it  correctly  identifies  which  set  of  basic  variables  has  elements  that  are  all  integer 
combinations  of  the  remaining  variables.  This  enables  the  deletion  of  this  set  of  variables 
from  the  Bulutoglu  and  Margot  [7]  ILP.  The  new  ILP  has  the  form 

min  0 

s.t.  A'ik,  s,  t)x'  >  hm  (3-2) 

xe{0,l,2,...,p^axr*-“, 

where  m  =  1)*’  A'(k,s,t),  b^,  x'  are  the  results  of  applying  Gaussian 

elimination  to  ^A(k,  s,  t)  \  and  deleting  the  basic  variables  A^x- 

For  a  general  ILP  with  only  equality  constraints  over  non-negative  integer  vectors, 
deleting  variables  by  using  Gaussian  elimination  may  not  always  be  possible.  This  can  be 
the  case  for  one  of  two  reasons.  First,  there  may  be  no  set  of  basic  variables  whose  elements 
are  integer  combinations  of  the  remaining  variables  plus  some  integer.  Second,  it  may  be 
very  difficult  to  identify  such  a  set  of  basic  variables.  For  example,  for  the  ILP  in  [7]  when 
k  =  S,  s  =  2  and  t  =  3,  the  proportion  of  such  sets  of  of  basic  variables  to  all  sets  of  basic 
variables  was  estimated  to  be  .5%.  This  estimate  was  calculated  by  repeating  the  following 
procedure  1000  times. 

1.  Randomly  permute  the  columns  of  the  constraint  matrix. 

2.  Augment  the  resulting  matrix  with  its  right  hand  side. 

3.  Row  reduce  it  to  its  reduced  row  echelon  form. 

4.  Record  if  the  output  has  only  integer  entries. 

The  MATLAB  code  to  execute  this  procedure  is  given  in  Section  A. 2. 
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The  following  definition  arises  naturally  from  Theorem  4. 

Definition  3.  Let  m  =  2f=(«+i)  (;)('^  “  !)'•  The  set  ofW  6  with  k  >  d(l,y)  >  t  +  1 
that  satisfy  the  system  of  inequalities  (3.1)  is  called  the  linear  relaxation  polytope  of 
OA(As\  k,  s,  t). 

Let  OAP(A:,  s,  t.  A)  denote  the  linear  relaxation  polytope  of  OA(/l5^  k,  s,  t).  Note  that 
OAP(A:,  s,  t,  T)  is  a  polytope  not  an  unbounded  polyhedron  because  it  can  be  embedded 
inside  the  hypercube  [0,  T]'”. 

Theorem  5.  The  OAP(k,  s,  t,  d)  is  full  dimensional  for  all  A. 

Proof  Let  m  be  as  above  and  1^  be  the  m  x  1  vector  of  all  Is.  This  result  is  proven  by 
showing  that  A/ s^~’lni  is  an  interior  point  of  the  OAP(A:,  s,  t,  d).  Rosenberg  [29]  showed  that 
the  system  of  equations  in  Lemma  1  is  equivalent  to 

^  Nx  =  A  for  all  t-subsets  7  of  [k]  and  all  a  e  [s]’'  (3.3) 

xe[s]^ 

Xi=aj'^iel 

where  [s]'^  =  (1,2, •••  ,5}^  and  [k]  =  (1,2, •••  ,k}.  It  is  clear  that  d//“'l/  solves  the 
system  of  equations  (3.3)  in  Then  =  A/s'^~*  and  Ny  =  Aj s’^~'  for  J(x,  1)  <  t  and 
d(j,  1)  >  t  respectively  solves  the  system  of  equations  (2.2)  Lemma  1  in  Now,  clearly 
A/s’'~‘lm  satisfies  all  the  inequalities  defining  the  OAP(A:,  5,  t,  d)  strictly.  Hence,  it  is  an 
interior  point.  □ 

The  following  theorem  proves  that  no  constraint  in  Theorem  4  is  redundant  unless 
k  =  t  +l  and  s  =  2. 

Theorem  6.  Each  one  of  the  distinct  s^  inequalities  in  Theorem  4  defining  the  OAP(k,  s,  t,  d) 
is  a  facet  and  no  facet  is  repeated  unless  k  =  t  +  \  and  s  =  2. 

Proof  At  least  one  of  the  inequalities  in  (3.1)  is  a  facet  since  otherwise  OAP(A:,  5,  t,  d) 
would  be  an  unbounded  polyhedron.  Then  there  exists  N^’  g  MP  satisfying  all  but  the 
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facet  defining  inequality  in  (3.1).  Let  <  0,  A^uo““^  E  M  be  the  left  hand  side  in 

constraints  (2.2)  corresponding  to  the  facet  defining  inequality  in  (3.1),  where 


( 


m  = 


X 


y 


if  J(u,  1)  <  t, 
otherwise. 


Hence,  there  exists  vectors  g  and  e  M''  that  satisfy  the  equations  in 
constraints  (2.2)  such  that  Ny  >  0  and  N^>0for:xi^  Uq  and  y  Uo,  where  <  0  .  The 
group  Gs^k  -  S  s  ^  S  k  sends  vectors  in  M'*  that  satisfy  the  equations  in  constraints  (2.2)  to 
vectors  that  satisfy  the  same  equations.  Furthermore  acts  transitively  on  the  variables 
of  constraints  (2.2).  Hence,  for  each  Uo  6  [5]^,  there  exists  a  solution  with  <  0 

and  >  0  for  w  9^=  Uq,  w  g  [5]*^  .  Then  there  exists  g  M"*  satisfying  all  but  one 
facet  defining  inequality  in  (3.1)  whose  left  hand  side  is  <  0  in  constraints  (2.2)  for 
arbitrary  Uo  G  [5]^.  Hence,  there  are  no  distinct  redundant  inequalities  in  (3.1)  and  each 
distinct  inequality  is  a  facet. 

Observe  that  unless  k  =  t  +  I  and  5  =  2,  {y  g  /x,  :  ^(1,  y)  >  t}  {y  6  7x2  •  ^(1’  y)  > 
whenever  Xi  X2.  Hence,  no  facet  is  repeated  unless  k  =  t+ 1  and  5  =  2.  For  the  degenerate 
case  k  =  t  +  I  and  5  =  2,  there  is  only  one  variable  A^^2  2  2)  2  2)  -  ^ 

“^(2  2  ■■■  2)  -  repeated  times.  □ 


Remark  1.  While  it  is  true  that  S  si  Sk  acts  as  a  group  of  symmetries  on  OAP(k,  s,  t.  A),  this 
action  is  no  longer  as  a  group  of  linear  transformations  (as  is  the  case  for  the  full  system  of 
equations  (3.3)),  but  rather  as  a  group  of  affine  transformations.  In  particular  S  s  I  S  k  does 
not  permute  the  variables  ofOAP(k,  s,  t.  A),  but  rather,  it  acts  by  permuting  the  half-spaces 
defined  by  inequalities  (3.1).  Furthermore,  this  action  is  transitive. 


Theorem  6  was  verified  when  T  =  1  for  each  of5  =  2,  4<A:<  13,  2<t<A:-2, 
5  =  3,  3<A:<8,  2<t<A:-l  and  5  =  4,  3<A:<6,  2<t<A:-l  cases.  This  verification 
was  based  on  finding  interior  points  on  each  facet  of  the  OAP(A:,  5,  t,  7). 


29 


Let  Bx  ^  d  be  the  system  of  ine(^u3.1ities  in  Theorem  4  defining  the  /t). 

Let  B'x  <  d'  be  the  same  system  after  the  /’th  inequality  is  deleted.  Also,  let  (b;)^  be  the 
i’th  row  of  B  and  F,  be  the  hyperplane  defined  by  the  equality  (b,)^x  =  J,-.  To  find  interior 
points  on  F,-  n  OAP(A:,  5,  t,  d),  each  face  of  the  OAP(A:,  5,  t.  A),  feasible  solutions  were  found 
to  the  following  linear  program 

min  l^x 

such  that  (b')^x  =  J,- 
B^x  —  — - —  1 

The  MATLAB  code  to  implement  this  test  is  found  in  Section  A. 4. 


3.3  Permutation  Symmetries  of  the  OA  Polytope 

First,  a  definition  for  the  permutation  symmetries  of  a  polytope: 

Definition  4.  Let  P  be  a  full  dimensional  poly  tope  in  M"*.  A  permutation  of  coordinates  of 
that  also  sends  P  onto  itself  is  called  a  permutation  symmetry  of  P.  The  set  of  all  such 
transformations  forms  a  group  called  the  permutation  symmetry  group  (n(F))  of  P. 

The  variables  Ny  in  Theorem  4  are  indexed  by  all  factor  level  combinations  y  6  [5]^ 
with  d(y,  1)  >  t  and  n(OAP(A:,  s,  t,  d))  permutes  those  variables.  The  following  theorem 
explicitly  describes  a  nontrivial  subgroup  of  n(OAP(A:,  s,  t.  A)). 


Theorem  7.  Let 

' 

S  if  t  —  Oy 

Hk,s,t  -  '  S  (i_i)  I  S k  ifO  <  t  <  k  and  (k  >  t  +  1  or  s  >  2), 

I  otherwise, 

and  I  be  the  identity  group.  Also,  let  T  =  {y  6  [5]^  :  d{y,  1)  >  t).  Then,  when  A 
not  defined  to  be  I,  it  naturally  embeds  as  the  group  of  permutations  that  preserve  Y,  and 
Hk.sj  c  flf  OAP(k,  s,  t,  d)). 
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Proof.  It  is  easy  to  see  that  each  element  of  maps  Definition  3  defining  constraints 
of  the  OAP(A:,  5,  t,  /I)  to  each  other.  Then,  v  6  OAP(A:,  s,  t.  A)  =>  h(v)  6  OAP(A:,  5,  t.  A)  for 
all  h  6  Hk,s,t-  Hence,  maps  the  OAP(A:,  5,  t,  T)  into  itself.  On  the  other  hand,  for  a 
given  V  6  OAP(A:,  5,  t,  d),  one  has  h{h~^iy))  =  v  as  h~^iy)  e  OAP(A:,  5,  hd).  This  implies 
that  h{OKP{k,  s,  t.  A))  =  OAP(A:,  5,  t,  d)  for  each  h.  Hence,  ^  n(OAP(A:,  s,  t,  d)). 
The  second  part  of  the  theorem  follows  directly  from  the  definition  of  wreath  product  of 
groups.  □ 

Remark  2.  For  k  =  t  +  \  and  s  =  2  there  is  only  one  variable  Ny  with  d(y,  1)  >  t,  hence 
Hf  OAP{k,  s,  t,  d))  =  7.  For  the  case  t  =  0,  there  is  one  constraint  on  the  s^  -  \  variables. 
The  coefficients  of  this  constraint  are  all  -D,  hence  Ift  =  k  there  are  no 

variables  in  inequalities  (3.1). 

Next,  tools  are  developed  for  computing  n(OAP(A:,  s,  t.  A)).  As  noted  in  [23],  the  set  of 
all  permutations  of  coordinates  in  M"*  mapping  P  onto  itself  consists  of  all  permutations  of 
coordinates  that  map  facets  of  P  onto  its  facets.  Hence,  if  all  the  facets  of  an  OAP(A:,  5,  t,  d) 
are  known,  then  n(OAP(A:,  5,  t.  A))  can  be  computed  explicitly.  n(OAP(A:,  5,  t.  A))  were 
computed  explicitly  for  all  the  k,  s,  t  combinations  in  which  Theorem  6  was  verified.  This 
was  done  by  first  finding 


Gk,s,t  =  {n\3o-:  Ak,s,t(n,  cr)  = 

where  is  the  constraint  matrix  of  inequalities  (3.1)  in  Theorem  4  and  Ai,  sfn,cr)  is 
the  resulting  matrix  when  the  rows  of  are  permuted  according  to  cr  and  columns 
according  to  n.  Then,  <  n(OAP(k,  s,  t.  A))  <  Gk^s,t  as  n(OAP(k,  5,  t.  A))  must  preserve 
the  constraint  matrix.  Calculating  Gk,s,t  over  directly  calculating  n(OAP(A:,  s,  t,  d))  was 
done  for  the  sake  of  convenience.  Finding  only  Gk,s,t  proved  to  be  sufficient  in  all  the  cases 
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considered.  Gk^sj  was  calculated  as  described  in  [23],  by  first  mapping  the  matrix 

0  ^k,sj 

0 

L  ^k,s,t  J 

to  an  edge  colored  graph  and  then  finding  the  automorphism  group.  The  code  to  generate 
the  constraints  (3.1)  is  found  in  Section  A.3.  The  code  used  to  generate  Gk,s,t  for  various 
values  of  k,  s  and  t  can  be  found  in  Section  A. 4.  Nauty  software  [25]  was  used  to 
find  the  automorphism  groups.  In  all  the  k,  s,  t  cases  studied,  it  was  found  that  \Gk,s,t\  = 
((5  -  l)\)^k\  =  \H]^^s,t\  implying  =  n(OAP(A:,  5,  t,  T)).  To  prove  this  observation,  the 
following  two  lemmas  are  required. 

Lemma  3.  Let  GG  be  the  group  of  maps  f  from  [5]^  to  [5]*^  that  preserve  the  Hamming 
distance,  i.e.  d(x,y)  =  d((f>(x),  for  all  (p  6  GG  then  GG  =  S  S 1,.  Furthermore,  ifGi 
is  the  subgroup  ofGG  such  that  t(1)  =  1/or  all  r  in  Gi  then  Gi  =  S  (^_i)  I  S k- 


Proof  Replace  with  the  ring  of  integers  mod  s  and  F*  with  -  [O]  in  Theorem  5 
and  Theorem  6  as  well  as  in  their  proofs  in  [11].  Also,  replace  the  term  “vector  space” 
with  “Z/’.  Then  the  resulting  theorems  and  their  proofs  are  still  valid  as  the  proofs  never 
use  the  multiplicative  invertibility  of  non-zero  elements.  Now,  replace  (0, 1,  •  •  •  ,5-1}  with 
(I,--  -  ,5}  to  get 

GG  =  S  ^s]^Sk  =  SslSk 


and 


Gi  =  5 


I  S  k  =  s 


0-1) 


I  S I 


□ 


Lemma  4.  Ifk  -  t  >2  then  {Oc)c=o  Theorem  4  are  all  non-zero  and  distinct. 

Proof  {Oc}c=o  ill  Lemma  1  are  the  same  {Oc}c=o  Theorem  4.  Ax  =  and  Ny  =  Xj s^~‘ 
solves  the  Lemma  1  system  of  constraints.  Plugging  in  Ax  =  A/s''~‘,  Ay  =  A/s'‘~‘  and 
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multiplying  both  sides  of  equations  (2.2)  by  /  ‘  j A  leads  to 


ck-t 


A 


=  1  +  ^ 


yeJx 

d(z,y)>t 


d(z,  y)  -  d{z,  x)  -  1 
t  -  d(z,x) 


(3.4) 


Taking  z  =  1  and  x  =  (2(1^)^,  (lk_rV)  equation  (3.4)  implies  that 

ck—t 


! +(-i)'-'-y (5- 1)(^-'--)  . 

A  ^  \t  +  i  - 

i=\  ' 


k  -  r  \lt  +  i  -  r  -  \ 


t  -  r 


(3.5) 


There  are  k  -  t  >  2  positive  integers  inside  the  summation  in  equation  (3.5).  This  implies 
that  ac  0  for  0  <  c  <  t  and  ac^c+i  <  0  ^  ac  ac+i  for  0  <  c  <  t  -  1.  Furthermore,  if 
at-n  =  cit-r2  for  some  1  <  r2  <  ri  <  t,  then  one  must  have  ri  =  r2  (mod  2).  This  further 
implies  that 

k—t  /I  \  / .  .  .  1  \  k—t 


(t-n+i) 


id  k-n  \  t  +  i-ri-l 


i=\ 


t  +  i  -  ri 


t  -  n 


{t-r2+i) 


id  k-r2  \  t  +  i-r2-l 


i=l 


t  +  i-r2 


t  -  r2 


for  some  0  <  r2  <  ri  <  t.  However,  this  is  impossible  as 


0  <  (5  - 


k-  r\  \(t  +  i  -  r\  -  I 


t  +  i  -  ri 


t  -  n 


<{s- 


k  -  r2  \lt  +  i  -  r2  -  I 


t  +  i  -  r2 


t-r2 


Hence,  Ut-n  Oj-rz  and  \at-ri\  <  la^-rzl  for  all  1  <  r2  <  ri  <  t.  Finally,  each  Uc  is  divisible 
by  d  =  ao  by  the  nature  of  the  difference  equation  defining  Uc  and  lad  is  strictly  increasing 
with  c  as  c  goes  from  1  to  t.  Hence,  Qc  uq  =  Afor  c  0.  □ 


Equation  (3.5)  provides  a  closed  form  formula  for  the  solution  of  the  inhomogeneous 
recurrence  relation  of  degree  k-t+\m  Lemma  1 .  This  recurrence  relation  is  equivalent  to 
a  homogeneous  recurrence  relation  of  degree  k  -  t  +  2.  Solving  such  an  equation  requires 
finding  all  complex  roots  of  a  degree  k  - 1  +  2  polynomial.  Coming  up  with  this  closed  form 
formula  for  arbitrary  values  oi  k  -  t  without  relating  a^  to  the  orthogonal  array  problem 
appears  to  be  difficult. 


Theorem  8.  Hf OAP(k,  s,  t.  A))  =  Hk,s,t- 
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Proof.  By  Remark  2  it  suffices  to  consider  the  case  \  <  t  <  k  -  \  and  (k  >  t  +  1  or  5  >  2). 
For  z  =  1,  let  GR  be  the  group  of  all  coordinate  permutations  of  [5]^  which  permute  the 
facets  in  Theorem  4.  Then, 

y  6  4  «  (r(y)  6  (3.6) 

and  at-d{i,x)  =  *  such  that  0  <  J(l,x)  <  t  and  all  cr  6  GR.  The 

distinctness  of  {«c}c=o  further  implies  that 

J(l,  x)  =  J((t(1),  cr(x))  if  J(l,  x)  <  t. 

Since 

^  .  iv-a(r,r)+i  V  1)  -  1 

d{l.y)>t 

when  X  =  1,  is  the  only  inequality  in  inequalities  (3.1)  that  has  a,  as  its  constant  term, 
it  must  be  mapped  to  itself  by  GR.  Then,  GR  must  preserve  1,  otherwise  J\  +  Ja-iX)  as 
A:>t+lor5>2.  Furthermore,  GR  must  also  preserve  the  set  {y  :  J(l,y)  >  t].  Let  GR' 
be  the  subgroup  of  GR  consisting  of  all  permutations  that  only  permute  the  variables  of 
the  facet  defining  inequalities  in  Theorem  4  without  changing  their  coefficients.  Then  GR' 
must  preserve  the  coefficients  for  ly  :  d(l,y)  >  t}.  Hence, 

J(l,  y)  =  J(t(1),  T(y))  =  J(l,  T(y))  if  J(l,  y)  >  t 

for  all  T  6  GR'.  Since  GR'  <  GR,  this  leads  to 

d(l,  y)  =  J(t(1),  r(y))  =  J(l,  r(y))  if  J(l,  y)  <  t. 

This  shows  that  all  elements  in  GR'  are  rotations  around  1. 

Let  r  =  {u  e  [s]^  :  d(u,  1)  =  1}.  Then  |r|  =  (s  -  l)k  and  |7u|  =  for  each  u  e  T. 
Since  each  r  6  GR'  is  an  invertible  rotation  around  1, 

T(r)  =  {t(u)  :  u  6  T}  =  r  for  all  T  6  GR', 
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and  consequently 


{7„  :  u  e  r}  =  :  u  e  T}  for  all  r  e  GR' .  (3.7) 


For  x,y  6  [5]^,  let  ri(x,y),  r2(x,y),  r^{x,y),  and  r4(x,y)  be  the  number  of  u  6  T  such  that 
X,  y  6  7u,  X,  y  ^  7u,  X  6  y  ^  and  x  ^  y  6  respectively.  Let 


y 


and  ai,a2,ai,a4,a5  6  {2,  •  •  •  ,  5}  such  that  a4  a^.  Now,  let  cri(x,y),Q'2(x,  y),  aaCx,  y), 
Q'4(x.  y)>  «5(x,  y)  be  the  number  of  columns  in  W  of  the  form 


1 

1 

a2 

«3 

a4 

9 

9 

9 

9 

1 

ai 

1 

«3 

as 

respectively.  Then, 


ri(x,y)  =  a4(x,y), 

r2(x,  y)  =  k{s  -  1)  -  (ri(x,  y)  +  rjCx,  y)  +  r4(x,  y)), 

(3.8) 

r3(x,  y)  =  a3(x,  y)  +  q'5(x,  y), 
r4(x,  y)  =  a2(x,  y)  +  y). 

By  (3.6)  and  (3.7),  one  can  see  that 


r,(x,y)  =  r,(T(x),  r(y)),  (3.9) 

for  all  T  6  GR'  and  /  =  1, 2, 3, 4. 

Let  Riix')  be  the  set  of  all  x  obtained  from  x'  6  {2,  •  •  •  ,  by  replacing  exactly 
i  coordinates  in  x'  with  1.  Let  B{x')  =  U^^Qi?;(x')  and  B(x')  be  the  matrix  whose 
+  l)th  row  to  (Zy=o(5))th  row  be  the  elements  of  ^;(x')  in  some  order.  Then, 
the  multiset 

i+J  B(x') 

x'e{2,-,sf 
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covers  every  element  in  [5]^  at  least  once,  and  each  element  of  Ri(x')  is  covered  exactly 
(5  -  1)'  times.  Also,  |5(x')|  =  2^  for  each  x'  6  {2,  •  •  •  ,  5}^  and  there  are  (s  -  1)^  such  B(x') 
.  Furthermore,  |5(x')  n  5(y')|  =  the  /th  column  of  B(x')  has  only  1  and  x'[/]  as 

its  entries  and  consequently  for  any  pair  x,  y  e  B(x'),  a5(x,y)  =  0.  Then,  equations  (3.8) 
and  (3.9)  imply  that  a,(x,  y)  for  i  =  1, 2, 3, 4, 5  remain  invariant  under  the  action  of  GR'. 
Hence, 

d(x,  y)  =  J(t(x),  T(y))  =  Qr2(x,  y)  +  a3(x,  y)  +  q'5(x,  y)  (3.10) 

for  all  X,  y  6  B{x')  and  r  6  GR'. 

Let  t(B(x'))  =  {t(x)  :  x  6  5(x')}.  Since  each  r  6  GR'  is  a  rotation  permutation 
around  1  that  preserves  distances  between  the  elements  of  B(x'),  it  is  apparent  that 
t(B(x'))  =  B(t(x')).  Let  B(x')  =  [2]*^  and  x  be  obtained  from  B(x')  and  x  by  replacing 
the  non-one  entries  with  2  respectively.  Then  for  each  x'  6  {2,  •  •  •  ,  5}, 

d(x,  y)  =  d(x,  y)  for  all  x,  y  6  B(x')  (3.1 1) 

Let  GR'  act  on  B(x')  by  t(x)  =  t(x).  Then,  since  t(B(x'))  =  B(t(x'))  by  (3.11), 

J(T(x),T(y))  =  J(T(x),r(y)),  (3.12) 

and 

{t(x)  :  X  e  B(x')}  =  {^  :  x  e  B(x')}  =  ^(B^  =  B(^  =  [if-  (3.13) 

Now,  (3.10),  (3.11)  and  (3.12)  lead  to 

J(r(x),  T(y))  =  J(t(x),  T(y))  =  J(t(x),  T(y))  =  d{x,  y)  =  J(x,  y).  (3.14) 

for  all  X,  y  6  B{x').  Hence,  by  (3.13)  and  (3.14)  GR'  acts  on  B{x')  =  [2]^  as  rotation 
isometries.  Then  by  Lemma  3  each  element  r  of  GR'  acting  on  the  elements  of  the  set 
B{x')  can  be  written  as  r  =  7*',  where  7*'  is  a  permutation  of  columns  of  B(x').  Let  7*' 
permute  the  columns  of  B(.r')  the  same  way  it  permutes  the  columns  of  B{x').  Also,  let 
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=  (yx')  i-r  then  /i*'(x)  =  (y^')  W(x)  =  x  for  each  x  6  B(x').  This  implies  that  yu*'  only 
changes  the  non-one  elements  to  non-one  elements  in  the  rows  of  B(x').  Since, 

d(x,y)  =  d(T(x),T(y))  =  J((y*')“V(x),  (7*')“'r(y))  =  J(ju*'(x),//*'(y)) 

for  all  x,y  6  B(x'),  and  fixes  1,  is  a  rotation  around  1  and  an  isometry  on  the  set 
B(x').  Let  jd^'(B(x'))  =  U^^q//*'(7?,(x'))  and  //*'(B(x'))  be  the  matrix  whose  (2;^o(y)  +  l)th 
row  to  (2;=o(y))th  row  be  the  elements  of  fi^\Ri(x'))  in  some  order,  where  fj^'(Ri(x'))  is 
the  set  obtained  by  applying  elementwise.  Now,  for  y  =  1,  •  •  •  ,  A:,  the  non-one  entry 
appearing  in  the  fth  column  of  B(x')  must  be  mapped  by  to  the  same  non-one  element 
every  time  it  appears.  Otherwise,  //*  is  not  an  isometry  rotation  around  1  on  the  set  B{x'). 
Hence,  by  taking  =  y^’  jjd’  one  can  deduce  that  there  exists  some  6  S  (2,...  ,s]^Sk  such 
that 

t(x)  =  T*'(X) 

for  all  X  6  B{x')  and  t  e  GR' .  Next,  it  is  shown  that  proving  the  following  claim  is 
sufficient. 

Claim:  There  exists  some  6  S {2,... ,s]  ^  Sk  acting  on  [5]^  such  that,  for  each  x'  6 
{2,  •  •  •  ,  5}^,  T^“'^(x)  =  T*'(x)  =  r(x)  for  all  x  6  B{x'). 

First,  the  claim  implies  that  r  e  5  jy...  ,sdSk  for  arbitrary  r  6  GR' .  Then,  |G7?'|  <  |5  (^-i)  I 
S  k\-  By  Theorem  7,  GR'  contains  an  isomorphic  copy  of  S  (s-i)lS  jt  as  a  subgroup  asO  <  t  <  k 
was  assumed  and  (k  >  t  -1- 1  or  5  >  2).  Hence,  GR'  =  u-  Now,  it  is  clear  that 

n(OAP(A:,  5,  t,  d))  =  where  is  the  restriction  of  GR'  to  variables 

{y  :  J(l,y)  >  t}.  Finally,  since  GR'  preserves  the  set  {y  :  d(l,y)  >  t],  no  permutations  are 
lost  by  restricting  GR' .  Hence,  n(OAP(k,  s,t,A))  =  =  S  (s-\)  ^  S  f 

Proof  of  the  Claim:  Let  x^,  x^  6  {2,  •  •  •  ,  5}^  be  such  that  x^  and  x^  are  different  only  on  the 
Ith  coordinate.  Let  B(x' ,  x^)  be  the  matrix  obtained  by  taking  the  elements  in  B(x' )  n  B(x'^) 
as  rows  in  some  order.  Then,  the  Ith  column  of  B(Xj,  x^)  is  the  column  of  all  Is  and  the  yth 
column  of  B(x',X2)  for  j  I  has  only  entries  from  the  set  {l,x' [7]},  where  x'[j]  =  X2[7]  is 
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the  7th  entry  of  x' .  Furthermore,  B(x' ,  x^)  ^  consists  of  all  2^  ^  one\non-one  combinations, 
where  B(x;,x^)-'  is  obtained  from  B(Xj,  x^)  by  deleting  its  /th  column. 

Now  write 

T*'i(x)  =  y’^iyU^iCx)  if  X  6  5(x'), 

r(x)  =  <  (3.15) 

T*^x)  =  if  X  e 

where  y*i(x)  is  a  permutation  of  columns  of  x  and  //*i(x)  only  changes  the  non-one  elements 
in  the  columns  of  B(xp.  First,  e  iSu-  Secondly, 

=  T*2(x)  =  t(x) 

for  all  X  6  B(x(,X2).  Hence,  /i*27’‘2(x)  =  =  ix^'iy^'i{x)  =  7*1 7/*! (x)  for  all 

X  6  B(Xj,X2).  This  implies  that 

(x)  =  y’^Kx)  for  X  6  B(x;,x^).  (3.16) 

Since  B(x'j,X2)  is  [2]*^“^  with  an  all  Is  column  attached  to  it,  columns  of  B(x'j,X2)  are 
distinguishable.  Hence,  equation  (3.16)  completely  (uniquely)  determines  how  columns  of 
X  are  permuted  by 

y*'i(x)  =  7*^x)  for  X  6  5(Xj)  U  5(x2).  (3.17) 

Now,  one  can  see  that 

7r*>(x)  =  ju’^kx)  for  x  6  5(x;, x^).  (3.18) 

Then,  7/^1  ((x)“')  =  /i’‘2((x)“')  for  each  (x)“'  appearing  as  a  row  of  ^ as  5(x',)“'  = 
where  B(x'j)~^  is  the  set  of  rows  of  B(xp“^  for  j  =  1,2.  Now,  extend  the  domain  of 
from  5(x')  to  5(x')  U  ^(x^)  by  setting 

7/*'i(x)  ifxe5(x;), 

yUeit(x)  =  (3.19) 

7/*2(x)  if  X  e  Bix'^). 

By  equation  (3.18)  this  extension  is  well  defined. 
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Next,  it  is  shown  that  /igxtC*)  injective  and  that  /igxtC*)  ^  *^[2  12>  -  ,^l  ^  ^ k-  First, 

¥3  r ^  I  -l 

by  the  preceeding  arguments,  //g^t  ^^ts  on  as  an  element  of  S  *2 . ,  Hence,  it  suffices 

to  show  that  acts  on  as  an  element  of  5(2,...,^!  and  is  injective,  where  B(xy' 

is  the  /th  column  of  B(xy.  Note  that  ju^j  fixes  1  in  every  column  of  B(xp.  Hence,  yUg'j  fixes 
1  in  every  column  of  and  consequently  in  .  Furthermore,  since  each  must 
map  each  non-one  entry  in  B(xy^  to  the  same  non-one  element  in  [5]^,  so  does  .  Hence, 
acts  on  as  an  element  of  S ^2 q-  Now  by  equations  (3.15),  (3.17)  and  (3.19),  one 
can  see  that 

li'JJx)  =  (/^“^(x)  for  X  6  B{x\)  U  5(x2).  (3.20) 

's!  r 

Injectivity  of  /ig(j  follows  from  equation  (3.20).  Now,  extend  the  domain  of  t*i(x)  for 
X  6  5(x()  with  5(xp  by  defining 

'^■eit(x)  =  for  X  e  ^ 


To  finish  the  proof,  notice  that  there  exists  a  finite  sequence  {x'j^j  such  that  d(x'.,  x'_^j)  =  1 
and 

m 

U{x:}  =  {2,---  ,s]\ 

i=\ 

where  x^  are  not  necessarily  distinct.  Extend  the  domain  of  t*'  along  this  sequence.  It 
is  understood  that  an  extension  in  the  domain  is  made  only  for  x^  appearing  for  the  first 
time.  Let  Tfuu  be  the  resulting  map.  Since  each  extension  is  injective,  acts  as  an  element  of 

S  (2,...  ,s]^  S  k  in  its  extended  domain,  and  the  domain  of  is 

(^-1/ 

[j  5(x:)  =  [^]', 

i=l 

acts  on  [5]^  as  an  element  of  S  j2,...  ,^1 1 S  t- 

□ 


Theorem  9.  Unless  t  =  0  or  t  =  k,  Gs^k  =  S  U  Skin  Theorem  9  of  Bulutoglu  and  Margot  [7] 
is  the  largest  subgroup  ofS  ^t  that  sends  equations  (3.3)  to  themselves.  For  t  =  0  or  t  =  k 
the  largest  such  group  is  S 
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Proof.  First,  consider  the  case  when  0  <  k  -  t  <  k.  Let  G  be  the  group  of  all  coordinate 
permutations  of  [5]^  which  permute  the  rows  of  the  constraint  matrix  A  pertaining  to 
equations  (3.3)  in  the  full  space  M'  .  It  was  shown  in  Bulutoglu  and  Margot  [7]  that  G 
contains  Gs^j,  as  a  subgroup.  Hence,  it  suffices  to  show  that  G  <  Gs^f  First,  it  is  shown  that 
every  element  in  G  is  an  isometry. 

Let  cr  e  G  and  z  e  [s]^.  Since  Gs,k  acts  transitively  on  [s]^  and  itself  consists  of 
isometries,  one  may  assume  cr(z)  =  z.  Consider  the  set  S  of  all  rows  of  A  in  which  z 
appears.  Since  cr(z)  =  z,  cr  must  permute  5.  Let  w  6  [5]^  be  such  that  J(z,w)  =  i,  where 
i  6  {0, 1,  •  •  •  ,k  -  t}.  Then  w  appears  in  exactly  rows  in  S .  Since  cr  preserves  S ,  cr(w) 
also  appears  in  exactly  rows  in  S .  Then  one  must  have  d{z,  cr(w))  =  i  as  no  element 
is  repeated  in  the  set  {(^7)^to-  Hence,  J(z,  w)  =  d(cr(z),cr{w))  for  all  z  and  w  such  that 
0  <  d(z,  w)  <k  -  t. 

Now,  for  any  z  and  y  such  that  d{z,y)  =  k  -  t  +  I  there  exists  yi  such  that 
d(z,y)  =  J(z,yi)  +  J(yi,y),  where  c?(z,yi)  =  k  -  t  and  J(yi,y)  =  I  <  k  -  t.  By  the 
triangle  inequality  d(o-(z),  cr(y))  <  d(cr(z),  cr(yi))  +  d(cr(yi),  cr(y))  =  k-t+l=  d(z,  y).  By 
repeating  the  same  argument  for  z  and  y  such  that  d(z,  y)  =  k  -  t  +  i  for  z  =  2,  •  •  •  ,t, 

J(cr(z),  cr(y))  <  d(z,  y)  (3.21) 

for  all  z,  y  and  cr.  Let  z'  =  cr(z),  y'  =  cr(y)  and  h  =  cr~^  then 

d(z',  y')  <  dih(z'),  h{y'))  (3.22) 

for  all  z',  y'  and  h.  Combining  inequalities  (3.21)  and  (3.22)  leads  to 

J(cr(z),  cr(y))  =  d(z,  y) 

for  all  z,  y  6  [5]^  and  cr  e  G.  Hence,  by  Lemma  3,  an  isomorphic  copy  of  G  is  contained 
inS  si  Sk-  Now,  this  implies  that  G  <  Gs,k  =  S  si  Sk-  The  cases  t  =  0  and  t  =  k  arc  easy  to 
see.  □ 
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IV.  Computational  Research 


4.1  Chapter  Introduction 

As  discussed  in  Section  2.5,  Margot  [23]  defined  the  symmetry  group  of  an  LP  to 
be  the  set  of  all  permutations  of  the  variables  of  an  LP  that  send  feasible  points  to  feasible 
points  with  the  same  objective  function  value.  Margot  [23]  and  Ostrowski  etal.  [27]  defined 
the  symmetry  group  of  an  ILP  to  be  the  set  of  all  permutations  of  the  variables  that  map 
a  feasible  solution  to  a  feasible  solution  with  the  same  objective  value.  Let  the  symmetry 
group  of  ILP  (2.4)  be 

Q{k,  s,t)  =  {n  £  S ski  n(x)  e  s,  t)} 
and  the  symmetry  group  of  ILP  (3.2)  be 

^'(k,  s,  t)  =  {n  £  Ssk-J  ^(x)  6  T'{k,  s,  0). 

Let  T  be  the  set  of  deleted  variables  to  get  ILP  (3.2)  from  ILP  (2.4).  It  is  not  hard  to 
see  that  stab(r,  Gs^k)  is  the  set  of  all  permutations  that  permute  indices  of  x'  by  permuting 
coordinates  in  (aj  +  \,a\  +  1,  -  •  •  +  1)  and/or  by  independently  sending  a  subset  of 

non-one  coordinates  to  non-one  coordinates.  Hence  |stab(r, G^_^)|  =  {s  -  iy}k\.  Let 
G{h.{k,  s,t),X\)^^  and  G(A'(k,  s,t),h)^^  denote  the  LP  relaxation  symmetry  groups  of 
ILP  (2.4)  and  ILP  (3.2)  respectively.  Let  G(A,b)  be  as  in  equation  (2.15)  in  Section  2.4 
with  c  =  1  and  d  =  Pmaxl-  Recall  from  Section  3.3  that  stab(r,  Gs,k)  =  G(A'(k,  s,  t),  h)  and 
Gs,k  =  G(A(k,  s,  t),  41).  These  results  imply  that  \Q'{k,  s,  t)\  >  \G(A'(k,  s,  t),  b)|  =  {s-  \y}k\ 
and  \g{k,s,t)\  >  |G,,^|  =  \G{A{k,s,t),A\)\  =  sH\. 

In  Section  3.2,  it  is  shown  that  all  the  inequalities  in  the  LP  relaxation  of  ILP  (3.2) 
are  facets.  Hence,  by  the  Margot  [23]  symmetry  group  definition,  this  implies  that 
G{A'(k,  s,  t),  b)^^  =  G(A'(k,  s,  t),  b)  =  5  (2,3,...  ,^1  I  S k-  However,  since  ILP  (2.4)  has  equality 
constraints  it  is  not  clear  whether  G{A{k,  s,  t),  41)  =  G(A(k,  s,  t),  41)^^  or  not.  The  most 
that  can  be  said  presently  is  that  G(A(k,  s,  t),  Al)  Q  G(A(k,  s,  t),  Tl)^^.  In  Section  4.2  an 
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efficient,  practical  method  for  computing  G{A{k,  s,  t),  is  developed  and  implemented. 
It  is  observed  that  for  1  <t<k-\ 

(k  +  1)  \G(A{k,  s,  t),  /ll)|  =  (A:  +  1)!2*  5  =  2  and  even  t, 

\G(A(k,  s,  t),  dl)^^|  =  < 

\G(A(k,  s,  t),  /ll)|  =  kl  (si)''  otherwise. 

For  5  =  2  and  even  t,  using  the  larger  symmetry  group  drastically  reduces  solution  times. 
In  fact,  in  all  almost  all  cases  considered,  deleting  variables  from  the  ILP  (2.5)  formulation 
to  get  the  ILP  (3.2)  formulation  proved  to  be  counterproductive.  The  reason  for  this  is  that 
for  I  <  t  <  k  -  I 

\G(A(k,  5,  t),  Al)\  =  5'  \G(A'(k,  5,  t),  b)| 

and 

(k  +  1)  2*  \G(A'(k,  5,  t),  b)|  5  =  2  and  even  t, 

\G(A(k,  5,  t),  /11)^^|  =  < 

5^  \G(A'(k,  5,  t),  b)|  otherwise. 

Hence,  exploiting  a  larger  symmetry  group  more  than  overcomes  the  additional  computa¬ 
tional  burden  of  having  a  larger  number  of  variables.  This  underscores  the  importance  of 
developing  tools  for  finding  larger  subgroups  of  the  full  symmetry  group  of  an  ILP. 

As  discussed  in  Section  2.5,  whenever  the  Margot  [22]  isomorphism  pruning 
algorithm  is  used  for  solving  a  symmetric  ILP  in  the  form  of  ILP  (2.14)  or  ILP  (2.16), 
G(A,  b)^^  or  a  subgroup  of  G(A,  b)^^  is  used  for  isomorphism  pruning.  However,  when 
the  goal  is  to  find  at  least  one  OA(N,  k,  5,  t)  for  a  given  N,  k,  5,  t  or  to  prove  that  no 
OA(N,  k,  5,  t)  exists,  it  is  viable  to  use  0(k,  5,  t)  {Q'(k,  5,  o)  instead  of  G(A(k,  5,  t),  Tl)^^ 
(G(A'(A:,  5,  t),b)^^j.  This  will  yield  significant  increases  in  computational  efficiency 
if  \Q(k,s,t)\  {\Q'(k,s,t)\^  is  much  larger  than  |G(A(A:,  5,  t),  dl)^^|  (  |G(A'(A:,  5, 0,b)^^|  j. 
Hence,  one  open,  fundamental  question  regarding  ILP  (2.5)  is:  How  much  larger  is 
\Q(k,s,t)\  {\Q'(k,  s,t)\^  than  |G(A(A:,  5,  t),  dl)^^|  (  |G(A'(A:,  5, 0,b)^^|  j?  A  method  for 
computing  Q(k,  5,  t)  is  given  in  Section  4.4.  This  method  requires  all  possible  solutions  to 
ILP  (2.5)  as  an  input.  Hence,  it  cannot  be  used  for  solving  unsolved  problems.  However,  it 
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is  a  good  diagnostic  test  telling  us  how  close  we  are  to  exploiting  all  possible  symmetries  of 
ILP  (2.5)  when  G{X{k,  s,  t),  is  used  with  Margot  [22]  isomorphism  pruning  algorithm. 
One  interesting  question  that  is  investigated  is  how  the  number  of  isomorphism  classes  of 
solutions  to  ILP  (2.5)  and  ILP  (3.2)  compare  using  G(A(k,  s,  t),  dl)^^  and  G(A'(k,  s,  t),  b)^^, 
respectively. 

In  Section  4.3,  the  Section  4.2  method  is  generalized  and  the  generalized  method  is 
tested  on  the  MILP  library  problems  studied  in  Liberti  [18]. 

The  improvements  in  Section  4.5  enable  the  use  of  Margot  [22]  isomorphism  pruning 
solver  in  the  algorithm  in  Figure  2.4  ILP  formulation  without  losing  OD  classes  or 
isomorphism  classes  of  OA{N,  k,  s,  t).  Also,  a  previously  unknown  large  subgroup  of 
G{A{k,  2,  t),  dl)^^  is  found. 

All  computations  in  this  chapter  were  performed  on  an  HP  Z820  workstation  with 
64GB  of  RAM  and  a  3.10  GHz  Intel  Xeon  E5-2687W  processor. 

4.2  Research  Objective  1 

4.2.1  Computing  G(A(k,  2,  t),  dl)^*’. 

Every  solution  to  the  EP  relaxation  of  lEP  (2.4)  can  be  written  in  the  form 

Pmaxl  >  X  =  ^1  +  V  >  0 

for  some  v  6  Null(A(k,  s,t))  Diji^^Pmax  -  This  is  true  because  is  a  particular 

solution  and  x  >  0.  Since  any  permutation  of  /  coordinates  preserves  [;^,Pmax  -  7b]*\ 
G(A(k,  s,  t),  dl)^^  is  the  set  of  all  permutations  in  S  /  that  preserve  the  elements  of 
Null(A(k,  5,  t)).  Null(A(k,  5,  t))  is  the  orthogonal  complement  of  the  row  space  of  A(k,  s,  t), 
hence  the  same  set  is  also  characterized  as  the  set  of  all  permutations  that  stabilize  the  row 
space  of  A{k,  s,  t).  Such  a  set  is  computed  as  the  automorphism  group  of  where 

0A^(k,  5, 0)  A(k,  5,  t)  (4.1) 
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is  the  orthogonal  projection  matrix  on  to  the  row  space  of  A(k,  s,  t),  and  (A(k,  s,  t)A^(k,  s,  o) 
is  the  Moore-Penrose  pseudoinverse  of  A{k,  s,  t)A^(k,  s,  t)  [17].  The  automorphism  group 
of  («:,.?,?)  is  the  set  of  all  tt  6  5  /  that  send  to  itself  when  rows  and  columns  of 

A^{k,  s,  t)  are  permuted  according  to  n.  This  automorphism  group  is  computed  as  the  auto¬ 
morphism  group  of  an  edge  colored  graph  with  vertices.  Each  distinct  entry  in  PAJ^(i:,i,f) 
is  labeled  with  a  distinct  color.  There  is  an  edge  between  ith  and  yth  vertices  labeled  with 
color  I,  if  and  only  if  the  (/,  j)th  entry  of  PA?^(i:,s,f)  is  labeled  with  color  1. 

Let  A(k,  s,t)  he  m  X  n  (where  n  =  /),  p  =  rank  (A(k,  s,  t)),  and  A{k,  s,  t)  =  UDV^ 
be  the  singular  value  decomposition  of  A{k,s,t).  Then,  by  using  the  results  in  [17], 
equation  (4.1)  simplifies  to 

(4.2) 

where 

Ipxp  Opx(n-p) 

^{n—p)xp  0(n-p)x(n-p) 

Equation  (4.2)  was  used  to  calculate  PAP(i:,i,f)  as  it  requires  fewer  floating  point  operations, 
leading  to  improved  accuracy. 

The  automorphism  group  of  PaP(/(:,.v,()  was  computed  by  using  Nauty,  where  edge 
coloring  was  implemented  as  described  in  McKay  [25].  G(A(k,  s,  t),  Tl)^^  was  computed 
for  many  k,  s,  t  combinations  by  using  the  aforementioned  method.  In  all  cases  considered, 
G{A{k,  s,  t),  Al)  C  G(A(k,  s,  t),  dl)^^  for  5  =  2  and  even  t,  and  G{A{k,  s,  t),  Al)  = 
G(A(k,  s,  t),  Al)^^  otherwise.  Consequently,  for  5  =  2  and  even  t,  using  the  group 
G{A{k,  s,  t),  dl)^^  significantly  decreased  solution  times.  This  method  generalizes  the 
concept  of  G(A,  b)^^  first  defined  in  Margot  [23].  A  further  generalization  of  this  method 
that  finds  G(A,  b)^^  for  arbitrary  A  and  b,  where  a  particular  solution  with  equal  coordinates 
is  not  available,  is  developed  in  Section  4.3. 

ILP  (2.5)  was  solved  for  many  k,  s,  t  combinations  using  the  groups  G{A{k,  s,  t),  dl) 
and  G{A{k,  s,t),A\)^^ .  This  is  legitimate  as  ILPs  (2.4)  and  (2.5)  have  the  same  feasible 


T(p)  - 
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set.  ILP  (3.2)  was  solved  for  the  same  k,  s,  t  eombinations  using  G{A'{k,  s,  t),  b)^^.  A  speed 
comparison  of  these  three  formulations  using  Margot  ILP  solver  [22]  is  made  in  Table  4.1. 
For  each  OA{N,  k,  s,  t),  the  second,  third  and  fourth  columns  report  the  number  of  solutions 
enumerated  for  ILP  (2.5)  using  G(A(k,  s,t),  Al),  ILP  (2.5)  using  G(A(k,  and 

ILP  (3.2)  using  G(A'(k,  s,  f),  b)^^.  Likewise,  the  fifth,  sixth  and  seventh  columns  report 
the  time  it  took  to  enumerate  these  solutions.  Even  though  ILP  (3.2)  has  fewer  variables, 
computational  experiments  summarized  in  Table  4. 1  suggest  that  it  should  not  be  preferred 
over  ILP  (2.5).  It  is  evident  from  Table  4.1  that  exploiting  the  larger  symmetry  group 
more  than  overcomes  the  additional  computational  burden  of  having  a  larger  number  of 
variables.  In  fact,  the  computational  savings  appear  to  grow  exponentially  with  the  number 
of  variables.  On  the  other  hand,  the  cases  OA(64, 7, 2, 4)  and  OA(24, 1 1, 2, 3)  do  buck  this 
trend. 


Table  4.1:  Formulation  Comparisons 


OA(V,  k,  s,  t) 

ILP  (2.5) 

G(A{k,  s,  t),  41) 

#  Designs 

ILP  (2.5) 

G(A(1,  i.O./ll)^'’ 

#  Designs 

ILP  (3.2) 

G(A'(jt,  i,0,b)L'’ 

#  Designs 

ILP  (2.5) 

G(A(jt,  i,  0, 41) 

Times  (sec.) 

ILP  (2.5) 

G(A(A:,  i,  f),  41)^'’ 

Times  (sec.) 

ILP  (3.2) 

G(A'(1,  i,f),b)L'’ 

Times  (sec.) 

OA(20,6,2,2) 

75 

23 

3069 

1.42 

6.74 

63.99 

OA(20,7,2,2) 

474 

102 

51695 

13.4 

9.22 

2578.82 

OA(20,8,2,2) 

1603 

211 

383729 

108.96 

21.98 

66377 

OA(20,9,2,2) 

2477 

351 

1157955 

484.55 

66.91 

879382 

OA(20, 10,2,2) 

2389 

260 

>  28195 

1683.95 

215.24 

>  37214 

OA(24,5,2,2) 

63 

31 

723 

1.07 

10.06 

18.36 

OA(24,6,2,2) 

1350 

274 

62043 

22.03 

12.05 

1381.39 

OA(24,7,2,2) 

57389 

7990 

6894001 

1720.96 

257.27 

428220 

OA(24,8,2,2) 

1470157 

165596 

4505018 

99738 

10082 

653671 

OA(24,9,2,2) 

3815882 

1309475 

- 

763643 

223138 

- 

OA(24,5,2,3) 

1 

1 

2 

0.13 

6.38 

11.64 

OA(24,6,2,3) 

2 

2 

5 

0.25 

6.62 

11.67 

OA(24,7,2,3) 

1 

1 

5 

0.32 

9.09 

16.04 

OA(24,8,2,3) 

1 

1 

6 

1 

14.11 

22.88 

OA(24,9,2,3) 

1 

1 

6 

5.9 

25.9 

44.02 

OA(24, 10,2,3) 

1 

1 

5 

55.49 

103.59 

128.95 

Continued  on  next  page 
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Table  4.1 

-  continued  from 

previous  page 

ILP  (2.5) 

ILP  (2.5) 

ILP  (3.2) 

ILP  (2.5) 

ILP  (2.5) 

ILP  (3.2) 

OA(N,  k,  s,  t) 

G(A(/t,  i,  f),  41) 

G{A{k,  s,  0, 41)^'’  G(A'(jt,  i,  t),  b)LP 

G{A{k,  s,  t),  41) 

G(A(A:,  i,  f),  41)LP 

G{A'(k,  i,f),b)LP 

#  Designs 

#  Designs 

#  Designs 

Times  (sec.) 

Times  (sec.) 

Times  (sec.) 

OA(24, 11,2,3) 

1 

1 

3 

519.62 

540 

460.59 

OA(32,6,2,3) 

10 

10 

31 

1.85 

7.89 

12.2 

OA(32,7,2,3) 

17 

17 

76 

1.82 

8.21 

16.13 

OA(32,8,2,3) 

33 

33 

194 

6.59 

13.97 

77.49 

OA(32,9,2,3) 

34 

34 

364 

23.75 

33.24 

658.38 

OA(32, 10,2,3) 

32 

32 

561 

102.39 

112.39 

7338 

OA(32,l  1,2,3) 

22 

22 

>  441 

560.29 

597 

>  36463 

OA(40,6,2,3) 

9 

9 

65 

0.52 

6.66 

12.92 

OA(40,7,2,3) 

25 

25 

580 

2.01 

8.5 

40.68 

OA(40,8,2,3) 

105 

105 

6943 

19.71 

27.16 

4178 

OA(40,9,2,3) 

213 

213 

43713 

206.25 

215.22 

260919 

OA(40, 10,2,3) 

353 

353 

>  1511 

1764.73 

1693.85 

>  36279 

OA(48,6,2,3) 

45 

45 

355 

2.01 

8.12 

18.27 

OA(48,7,2,3) 

397 

397 

13469 

33.73 

40.11 

862.1 

OA(48,8,2,3) 

8383 

8383 

896963 

2231.77 

2237.34 

552154 

OA(54,5,3,3) 

4 

4 

49 

1.9 

10.26 

36.01 

OA(54,6,3,3) 

0 

0 

0 

17.14 

36.84 

167.07 

OA(56,6,2,3) 

86 

86 

1393 

4.44 

10.88 

36.02 

OA(56,7,2,3) 

4049 

4049 

285184 

443.4 

449.78 

20415 

OA(64,7,2,4) 

7 

4 

21 

98.83 

259.84 

15.45 

OA(64,8,2,4) 

3 

2 

10 

12.17 

37.58 

23.39 

OA(80,6,2,4) 

1 

1 

6 

0.52 

6.82 

11.86 

OA(80,7,2,4) 

0 

0 

0 

0.37 

7.97 

15.01 

OA(81,5,3,4) 

1 

1 

2 

15.75 

22.8 

19.56 

OA(96,7,2,4) 

4 

2 

31 

3.14 

9.75 

15.41 

OA(96,8,2,4) 

0 

0 

0 

2.28 

10.73 

60.39 

OA(  112,6,2,4) 

3 

2 

25 

1.24 

7.57 

12.7 

OA(l  12,7,2,4) 

0 

0 

0 

1.24 

7.74 

17.36 

OA(  144,8,2,4) 

20 

7 

3392 

1792.82 

774.49 

1535314 

OA(162,6,3,4) 

0 

0 

0 

19.8 

31.93 

266.8 

The  code  used  to  compute  column  2  of  Table  4.1  is  found  in  Bulutoglu  and  Ryan  [8]. 
The  code  used  to  compute  column  3  via  modification  of  the  Bulutoglu  and  Ryan  [8]  code  is 
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found  in  Section  B.  1 .  The  code  used  to  compute  column  4  via  modification  of  the  Bulutoglu 
and  Ryan  [8]  is  found  in  Section  B.2. 

4.2.2  Finding  a  Large  Subgroup  of  G(A(k,  2,  t), 

Switch  to  + 1  coding  of  the  2*^  full  factorial  design  using  the  function 

(^1,^2,  •  •  •  ,  Xkf  ^  ((-1)"‘ ,  (-ir,  •  •  •  ,  (-1)"*)^ 

if  (xuX2,  ■  ■  ■  ,  Xkf  6  {0, 1}^  and 

(^1,^2,- ••  ,xkf  ,(-i)"*-'f 

if  (;ci,V2,  •••  ,Xky  6  {1,2}^.  Both  fi  and  02  are  invertible  functions.  So,  we  can  switch 
between  {0, 1},  {1,2}  and  {+1}  codings  as  necessary.  Let  N^,  N^,  and  N^,',  be  the  number 
of  times  x  6  (0, 1}^,  x'  6  {1,2}^  and  x"  6  {+1}^  appears  in  a  sought  after  A:-factor  factorial 
design.  Let  and  be  the  5^  x  1  vectors  whose  xth,  x'th  and  x"th  variables  are  Ny 

N^,  and  Functions  0i  and  02  are  chosen  so  as  to  preserve  the  ordering  of  the  variables 
in  N^,  and  in  such  a  way  that  0,  1  and  1  are  the  low  levels  in  the  (0, 1},  {1,2}  and 
{+1}  codings. 

Let  X"/"  =  (^x'/j^  be  the  full  factorial  2^  design  in  {-1, 1}  coding.  For  an  indicator  vector 
N^"  6  with  N^"  >  0,  define 


{jij2,-jp] 


E„  tt 


m  ‘jp 


z, 

i=[ 

Then,  is  called  the  J -characteristic  of  length  p  of  [32]. 

Theorem  10.  is  the  indicator  vector  of  an  OA(N,  k,  2,  t)  if  and  only  if  N^”  6  and 


{jlj2,-jp] 


x”.  m . .  =  o, 

02  IJp 
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for  all  size  p  subsets  {ji,  72,  •  •  •  ,  jp}  of  {1,2,  •  •  •  ,k}  and  all  p  £  {1,2,  -  ■  ■  ,t}  [32]. 

For  each  equation  in  (4.4)  whose  right  hand  side  is  zero,  multiply  both  sides  by  -1  and 
append  it  to  (4.4).  Let  be  the  automorphism  group  of  the  resulting  system  of  equations. 
Theorem  10  implies  that  every  equation  in  ILPs  (2.4)  and  (2.5)  is  a  linear  combination 
of  equations  in  (4.4).  Hence,  <  G(A(k,2,t),Al)^^.  S2  I  St  acts  on  x"  as  signed 
permutations  of  columns  of  x",  where  x"  is  a  row  of  X"/.  For  a  given  indicator  vector 
N^”,  this  action  extends  to  an  action  on  7-characteristics  of  N^”  via  equation  (4.3).  S2I  Sk 
acts  as  signed  permutations  on  7-characteristics  of  as  well.  Hence,  S2lSk<G[^. 

For  each  row  x"  =  {x”,  x'^,  •  •  •  ,  x'^)  of  X"^,  let 

afX  =  (XfX,  ,XfX^,---  ,  XfXf_„Xf,XfXf^„  ■■■  ,  x^x, ), 


for  1  <  /  <  A:.  Then,  a /  permutes  the  variables  A^x"  by 

Of 

Nx"  ^  Nafx"- 


This  action  extends  to  an  action  on  7-characteristics  of  N^” ,  where 


7j 


E(4)' 


ff  ft 


Z=1 


Each  a/  acts  as  permutations  of  7-characteristics  of  N^”.  Now,  the  following  theorem 
follows. 


Theorem  11.  The  action  of  a  f  sends  a  J -characteristic  of  length  p  to  a  J -characteristic  of 
length  p  if  p  is  even  and  to  a  J -characteristic  of  length  p  +  1  if  p  is  odd. 

The  following  corrolary  immediately  follows  from  Theorem  11. 

Corrolary  1.  The  action  of  a  f  sends  the  extended  system  of  equations  (4.4)  to  itself  if  t  is 
even.  Hence,  ift  is  even,  ay  6  G^^  and  consequently  {ai,a2,  -  •  •  ,ak,S2iSk)  <  G^^,  where 
{a\,a2,  -  ■  ■  ,ak,S2iS  k)  is  the  group  generated  by  a\,a2,  -  ■  ■  ,ak  and  82^  S  k- 
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Theorem  12.  \{ai,a2,  •  •  •  ,ak,S2iS  k)\  =  (k+  1)!2^ 

Proof.  Let  Gk  =  (01,02,  ■  ■  ■  ,Ok,S2^  Sk).  Let  D  =  [xi,  X2,  •  •  •  ,  x^]  be  a  A:  factor,  2  level,  N 
run  generic  design.  Let  O  be  the  orbit  of  of  D  under  the  action  of  G^.  Each  element  of  Gj, 
is  completely  determined  by  its  action  on  D.  Hence  \Gk\  =  \0\.  For  two  vectors,  x,  y  6  Mf, 
let  X  O  y  =  (xiyi,X2y2,  ■■■  ,  xtykf.  Let 

Bo  =  {Xi,X2,--  -  ,Xk} 


and  for  /  =  1, 2,  •  •  •  ,  A:  let 


Bi  =  {xi  O  X,-,  X2  O  X,-,  •  •  • 


,  X;_1  O  X,-,  X,-,  X,+1  O  X,-,  •  •  •  ,  Xi  O  x^}. 


Then,  for  each  i  =  0, 1, 2,  •  •  •  ,k  there  exists  an  element  in  O  whose  set  of  columns  is  Bi. 
Then  each  2^k\  distinct  signed  permutations  of  the  columns  in  5,  is  a  distinct  element  in  O. 
Hence,  \0\  >  2^(k  +  1)!.  Observing  that  the  set  of  columns  (up  to  multiplication  by  +1)  of 
each  element  in  O  is  equal  to  5,  for  some  /  G  {0, 1,  •  •  •  ,k}  finishes  the  proof.  □ 

Hence,  for  even  t  and  s  =  2,  (k  +  1)!2^  <  Based  on  computer  observations,  the 

following  conjecture  is  made: 


Conjecture  1. 


Hence, 


{0\,02,‘  •  •  ,Ok,S2^  S  k) 


\S2^  S  k 


ift  is  even  and  \  <t  <k, 
ift  is  odd  ond  I  <  t  <k, 
otherwise. 


(/t+  1)!2^ 

ift  is  even  ond  \  <  t  <k, 

k\2'^ 

ift  is  odd  ond  1  <t  <k, 

2k  1 

otherwise. 
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4.3  Research  Objective  2 

Let  A  be  the  mx  n  constraint  matrix  of  an  ILP  in  the  form  of  ILP  (2. 14)  and  b  be  the 
right  hand  side.  Let  G(A,  0,  c,  be  the  automorphism  group  of  =  A^  ^  that 

preserves  c  and  d.  Let  S  =  {ei,e2,--  -  ,  Sn]  be  the  standard  orthonormal  basis  of  M"  and 
Oi,  O2,  be  the  orbits  of  G(A,  0,  c,  d)^^  in  S.  The  fixed  subspace  of  M”  under  the 

action  of  G(A,  0,  c,  d)^^  is  defined  as 

FixG(A,o,c,d)Lp(IR”)  :=  {x  6  M”|yx  =  x  for  all  y  6  G(A,  0,c,d)^^}. 

Lemma  3  in  Bodi  et  al.  [4]  implies  that 

FixG(A,o,c,d)Lp(I^”)  =  Span  (J3(0i),fi(02),  •  •  •  ,j3iOr)) , 

wherejS(5)  =  (Xves  '')/|5|.  Let therows  of  Ebe abasis  for  Span(/3(Gi),/3(G2),  •  •  •  ,[i{Or)Y. 
If  the  LP  relaxation  set  intersected  with  the  fixed  space, 

d)LP  “  ^  ^>olE*  =  0  and  x  satisfies  equations  (2.14)}, 

is  non-empty  then  G(A,  0,  c,  d)^^  =  G(A,  b,  c,  d)^^.  This  follows  from  the  argument  in  the 
beginning  of  Section  4.2. 

On  the  other  hand,  if  is  empty,  one  must  have  G(A,  b,c,d)  c 

^“G(A,0,c,d)LP''“  > 

G(A,  b,  c,  d)^^  C  G(A,  0,  c,  d)^^,  where  G(A,  b,  c,  d)  is  defined  as  in  Section  2.4.  To  find 
G(A,  b,  c,  d)^^  in  this  case,  let 

p 

G(A,  0,  c,  =  [J  G(A,  b,  c,  d)g,G(A,  b,  c,  d) 

i=\ 

be  the  double  coset  decomposition  of  G(A,  0,  c,  d)^^  using  the  subgroup  G(A,  b,  c,  d).  Then, 
as  discussed  in  Bremner  et  al.  [5],  either  (G(A,  b,  c,  d)g,G(A,  b,  c,  d))  H  G(A,  b,  c,  d)^^  =  0 
or  G(A,  b,  c,  d)g,G(A,  b,  c,  d)  c  G(A,  b,  c,  d)^^.  Let  Gext  =  (gi,  G(A,  b,  c,  d))  be  the  group 
generated  by  gi  and  G(A,  b,c,  d).  Calculate  FixG^^,(M”)  and  ,  as  described  in  the 

^ext 

previous  paragraph,  by  replacing  G(A,  0,c,d)^^  with  Gext-  If  is  non-empty  update 

^I^Gext 
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G(A,  b,c,d)  with  Gext-  Repeat  the  same  procedure  with  Ggxt  =  {gi,  G(A,b,  c,  d))  for 
/  =  2,  •  •  •  ,p.  The  resulting  G(A,  b,  c,  d)  in  the  end  is  equal  to  G(A,  b,  c,  d)^^. 

This  method  was  first  tested  on  the  OA{N,  k,  s,  t)  cases  listed  in  Table  4. 1  by  using  both 
the  constraints  (2.2)  with  a  0  objective  function  as  well  as  using  ILP  (2.4).  As  expected, 
this  method  found  G(A,  0,  c,  d)^^  =  G(A,  b,  c,  d)^^  in  all  cases.  To  further  test  this  method, 
a  number  of  library  MILPs  featured  in  Liberti  [18]  were  studied.  Each  inequality  constraint 
was  converted  to  an  equality  constraint  by  adding  a  slack  variable.  Each  added  slack 
variable  was  labeled  to  be  to  be  an  integer  variable  if  the  integrality  of  the  variable  could 
be  deduced  from  the  constraint  to  which  it  was  added.  The  results  of  that  study  are  listed  in 
Table  4.2.  The  G(A,  b,  c,  d)  groups  sizes  found  are  the  same  as  those  found  by  Eiberti  [18]. 
The  code  used  to  generate  this  table  is  found  in  Section  B.6. 


Table  4.2:  G(A,  b,  c,  d)^^  of  Eiberti  [18]  Problems  Via  Double  Coset  Decomposition 


Problem 

|G(A,0,c,d)LP| 

|G(A,b,c,d)LP| 

|G(A,b,c,d)| 

G(A,0,c,d)'^P 

Times  (sec.) 

G(A,b,c,d)'^P 

Times  (sec.) 

G(A,b,c,d) 

Times  (sec.) 

air03 

268435456 

268435456 

8192 

189000 

- 

1710 

arkiOOl 

6.36  X  10^1 

6.36  X  10®' 

5.23  X  10''"' 

1270 

- 

433 

blend2 

362880 

362880 

362880 

99.2 

- 

19.7 

enigma 

2 

2 

240 

4.2 

- 

0.705 

gen 

2 

2 

2 

921 

- 

125 

mas74 

4 

4 

4 

10.8 

- 

1.81 

mas76 

4 

4 

4 

10.2 

- 

1.88 

misc03 

48 

48 

12 

19 

- 

3.69 

misc06 

3456000 

1728000 

1728000 

17200 

34.9 

211 

misc07 

48 

48 

6 

77.3 

- 

12.1 

mzzvll 

1.26  X  10^^ 

1.26  X  10®® 

4.57  X  10^4 

3390000 

- 

22900 

mzzv42z 

1.83  X  10^^ 

1.83  X  10®® 

1.3  X  10®® 

3040000 

- 

25700 

noswot 

2 

2 

2 

38.7 

- 

6.25 

optl217 

2 

2 

2 

570 

- 

16.8 

Continued 

on  next  page 
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Table  4.2 

-  continued  from 

previous  page 

Problem 

|G(A,0,c,d)LP| 

|G(A,b,c,d)'^'’| 

|G(A,b,c,d)| 

G(A,0,c,d)'^'’ 

Times  (sec.) 

G(A,b,c,d)LP 

Times  (sec.) 

G(A,b,c,d) 

Times  (sec.) 

p0201 

4 

4 

4 

42.4 

- 

5.98 

p2756 

5.15  X  10'° 

536870912 

536870912 

5320 

3360 

403 

protfold 

4 

4 

4 

55600 

- 

584 

qiu 

24 

24 

24 

2600 

- 

194 

rgn 

120 

120 

120 

12.1 

- 

1.43 

rout 

120 

120 

120 

288 

- 

33.4 

Seymour 

2.78  X  10^32 

2.78  X  10222 

2.78  X  10222 

811000 

- 

1540 

stein27 

303264 

303264 

303264 

7.36 

- 

2.01 

swath 

4.24  X  10'°2i 

4.24  X  10'°2i 

3.36  X  lO*'® 

87700 

- 

3850 

timtab  1 

8 

2 

2 

67.3 

26.6 

7.59 

timtab2 

256 

2 

2 

265 

628 

20.8 

In  this  set  of  problems,  G(A,  b,  c,  is  either  G(A,  0,c,d)^^  or  G(A,b,  c,  d), 
with  G(A,b,  c,  d)^^  =  G(A,0,  c,  d)^^  in  most  of  the  cases.  In  many  of  these  cases, 
|G(A,b,c,d)LP|  >  |G(A,b,  c,  d)|.  Hence,  this  theory  reveals  hidden  symmetries  that  could 
not  otherwise  be  detected.  If  a  mixed  integer  solver  with  isomorphism  pruning  is  used 
on  these  problems,  it  is  expected  that  exploiting  the  larger  groups  would  overcome  the 
computational  burden  of  added  slack  variables  to  convert  all  constraints  to  equalities. 

This  method  can  also  be  applied  to  solve  ILP  (2.10).  However,  this  requires  adding 
rp-  -  \  binary  slack  variables.  This  increases  the  total  number  of  binary  variables  in 
ILP  (2.10)  to  (3n  +  ll)(n  -  l)/2.  Holzmann  et  al.  [15]  found  all  nonequivalent  Williamson 
matrices  up  to  order  n  =  59.  The  next  open  case  is  n  =  61,  which  would  require 
solving  an  ILP  with  5,820  variables.  The  computer  used  for  this  research  was  unable  to 
find  G(A(12, 2, 2),0)^^  for  ILP  (2.4),  which  is  an  ILP  with  4,096  variables.  Therefore, 
the  first  open  case,  n  =  61,  is  beyond  the  reach  of  the  current  available  resources.  The 
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nonlinear  form  of  this  ILP  has  only  240  variables  and  it  may  be  possible  to  solve  that 
version.  However,  binary  nonlinear  programming  is  beyond  the  scope  of  this  dissertation. 

4.4  Research  Objective  3 

For  fixed  k,  s  and  t,  the  number  of  non-isomorphic  OA(/l5^  k,  s,  t)  grows  exponentially 
with  A;  see  Bulutoglu  and  Margot  [7]  and  Bulutoglu  and  Ryan  [8].  This  makes  it  impossible 
to  enumerate  all  non-isomorphic  OA(/l5',  k,  s,  t)  for  k  close  to  k^nxiN,  s,  t)  and  large  A  using 
any  of  the  extension  algorithms  of  Bulutoglu  and  Ryan  [8],  since  these  algorithms  require 
finding  all  non-isomorphic  OA(/l5^  /,  s,  t)  for  i  <  k.  On  the  other  hand,  all  non-isomorphic 
OA(/l5^  k,  s,  f)  can  be  enumerated  by  solving  ILP  (2.4)  with  the  Margot  [22]  Branch-and- 
Cut  algorithm  with  isomorphism  pruning  using  group  G{X{k,  s,t),  A\)^^ .  However,  this 
approach  also  fails  for  k  >  12  or  large  A,  as  it  suffers  from  the  exponential  growth  of  the 
Branch- and-Cut  enumeration  tree  with  k  and  A. 

If  \0{k,  s,  t)\/\G(A(k,  s,  t),  is  large,  using  0(k,  s,  t)  instead  of  G(A(k,  s,  t), 
will  significantly  reduce  the  Branch-and-Cut  enumeration  tree  without  compromising 
the  correctness  of  the  answer  to  the  feasibility  question  of  an  OA(As\k,  s,t)-  For  i  = 
t,t  +  I,--  -  ,k  -  1,  a  permutation  n‘  6  0{i,  s,  t)  extends  to  a  permutation  7^  6  Q{k,  s,  t)  if 
and  only  if  the  action  of  permutation  on  the  first  i  factors  of  each  of  5^  possible  k  factor 
level  combinations  is  identical  to  that  of  n‘.  Using  Q{i,s,t)  instead  of  G(A(z,  5,  t), 
for  z  =  t,t  +  I,  -  •  •  ,k  (when  \Q{i,  s,t)\l\G{A{i,  s,t),  A\)^^\  is  large)  will  also  improve  the 
efficiency  of  extension  algorithm  in  Figure  2.4  significantly  by  decreasing  the  enumeration 
tree  sizes,  the  number  of  solutions  to  the  ILPs  to  be  solved  and  consequently  the  total 
number  of  ILPs  to  be  solved.  However,  using  s,  t)  may  cause  the  algorithm  in 
Figure  2.4  to  incorrectly  declare  an  OA(/l5^  k,  s,  t)  to  be  infeasible.  The  correctness  of 
the  answer  to  the  feasibility  question  of  an  OA(/l5',  k,  s,  t)  will  not  be  compromised  if  and 
only  if  each  permutation  in  Q{i,  s,  t)  extends  to  a  permutation  in  0{k,  s,  t). 
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We  computed  Qii,  s,  t)  for  i  <  k  for  many  k,  s,  t  combinations  to  determine 
\Q{i,  s,  t)|/|G(A(/,  s,  t),  This  was  accomplished  as  follows: 

1 .  Find  the  indicator  vectors  of  all  OA(/l5',  i,  s,  t)  either  by  finding  all  solutions  to 
ILP  (2.4)  or  by  generating  them  from  a  set  of  all  non-isomorphic  OA(/l5^  /,  s,  t). 

2.  Let  M  be  a  n  X  5'  matrix  whose  rows  are  the  indicator  vectors  of  all  OA(/l5',  i,  s,  t), 
where  n  is  the  number  of  all  OA(/l5',  i,  s,  t). 

3.  Compute  G(M,  1, 1, 1)  =  s,  t)  by  computing  the  automorphism  group  of  a  vertex 
colored  bipartite  graph  (the  same  way  G(A,  1,1,1)  in  equation  (2.15)  is  computed 
by  Margot  [23]).  If  M  is  not  a  binary  matrix,  then  an  edge  colored  vertex  colored 
bipartite  graph,  where  each  color  represents  a  distinct  value  in  M,  must  be  used. 
Edge  coloring  of  such  a  graph  was  implemented  as  described  in  the  Nauty  software 
documentation  [25]. 

For  many  non-trivial  OA(/l5^  i,  s,  t)  cases,  M  is  huge.  Hence,  for  such  cases  Step  3  is 
disk  space  intensive.  The  following  theorem  provides  a  more  efficient  way  of  determining 
0{i,  s,  t)  by  converting  this  problem  to  finding  the  automorphism  group  of 
where  B  is  a  basis  of  the  row  space  of  (M  -  ),  and  is  a  n  x  5'  matrix  of  I’s: 

Theorem  13.  Let  M  be  the  nx  s'  matrix  above.  Let  the  rows  of  ^  be  a  basis  for  the  row 
space  ofM-  Then  the  automorphism  group  ofP^r  =  B^  to 

Q{i,  s,  t) 

Proof  By  the  argument  in  Section  4.2,  the  automorphism  group  of  Pb^  is  the  set  of  all 
permutations  in  5  ,,  that  preserve  ((m  -  the  row  space  of  M  -  -^X-  Clearly, 

j  is  a  subspace  of  Null(A(A:,  5,  t)).  Every  solution  to  ILP  (2.4)  has  the 
form  X  =  v  -I-  ;^l.s'  for  some  v  e  ^  Null(A(A:,  5,  t)).  For  g  6  Q{i,  s,  t), 

x  =  \+X'^v  and  gx  =  gv -t  both  solve  ILP  (2.4).  Hence,  gv  6  ^(M  -  and 
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0{i,  s,  t)  Q  Furthermore,  also  solves  ILP  (2.4)  for  g  6  Hence, 

Gpjjr  c  Q{i,  s,  t).  □ 

The  entries  in  Table  4.3  were  computed  as  follows: 

1 .  Compute  a  basis  B  for  the  row  space  of  (m  -  )  via  successive  applications  of  Q- 

R  decomposition,  taking  100  vectors  at  a  time.  Report  rank^M  -  ;^J^  )  =  rank(B). 

2.  Calculate  Pb^  =  B^  (BB^)^  B. 

3.  Convert  Pb^  to  an  edge  colored  graph  with  s'  vertices  as  described  in  Section  4.2. 

4.  Use  Nauty  [25]  to  find  the  automorphism  group  of  the  graph. 

The  following  theorem  connects  the  Table  4.3  results  to  a  conjecture  on  OA(5^  k,  s,  t): 

Theorem  14.  Let  k  =  i  and  assume  that  an  OA(As',  k,  s,  t)  exists.  Let  Conv(M)  be  the 
convex  hull  of  the  rows  ofM.  Then,  rank(B)  =  dim(Conv(M)). 

Proof.  Let  S  =  {^x  I  x  6  D/}  be  the  standard  orthonormal  basis  for  indexed  with  the 
full  factorial  design  D^.  Let  Gs,k  =  G(A,  Tl)  =  I  Su  act  on  elements  of  S  by 

g 

Sx  Sgx  for  each  g  6  S  ,s]  ^  S  k-  Let  O  be  the  orbit  of  ei.  As  the  action  of  5(1,2,...  ,s]^Sk  on 
S  is  transitive,  each  element  in  S  appears  in  O.  Then,  yS(G)  =  where  jS(G)  is  defined 

as  in  Section  4.3.  Hence,  by  Lemma  3  in  Bodi  et  al.  [4], 

FixG(A,ii)  (K"*)  =  Span  (1,0  . 

Now,  let  be  a  row  of  M.  Then,  /3(y)  =  al^k  for  some  cr  6  M  as  yS  is  the  projection 
operator  onto  FixG(A,ii)  For  y  e  ,  5(1,2,...,^!  I  Sk  acts  on  coordinates  jx  of  y  by 

g 

jx  ^  yg-'(x)-  Let  Oy  be  the  orbit  of  y  under  this  action.  Then, 

Ay)  =  Xi 

yeOy  |f^y| 
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Each  V  satisfies  the  equality  constraints  in  ILP  (2.4).  Then,  XvsOy  also  satisfies 

the  same  constraints.  This  forces  a  =  Hence,  is  in  Conv(M).  Then, 

rank(B)  =  rank  (m  -  =  dim(Conv(M)).  □ 

The  second  column  of  Table  4.3  is  the  size  of  the  automorphism  group,  the  third 
indicates  if  \Q{i,  5,01  =  |G(A(/,  5, 0,dl)^^|,  the  fourth  is  the  number  of  rows  in  (=  5'j, 
the  fifth  is  the  upper  bound  on  the  rank  of  B  (=  Z;=f+i  ~  1)^)>  the  sixth  is  the  rank  of  B, 
and  the  seventh  column  is  the  minimum  difference  between  two  entries  in  Pgr.  The  code 
used  to  compute  this  table  is  found  in  Section  B.3. 


Table  4.3:  s,  t)  and  rank(B) 


OA(N,  i,  s,  f) 

\G{i,s,t)\ 

=  |glp|? 

rows 

UB(rank(B)) 

rank(B) 

Pbt-  diff 

OA(32,6,2,4) 

322560 

Y 

64 

7 

7 

0.0625 

OA(80,6,2,4) 

322560 

Y 

64 

7 

7 

0.0625 

OA(64,6,2,4) 

322560 

Y 

64 

7 

7 

0.0625 

OA(112,6,2,4) 

322560 

Y 

64 

7 

7 

0.0625 

OA(64,7,2,4) 

5160960 

Y 

128 

29 

29 

0.03125 

OA(24, 7, 2, 3) 

5.95  X  10^4 

N 

128 

64 

42 

0.03125 

OA(96,7,2,4) 

5160960 

Y 

128 

29 

29 

0.03125 

OA(64,8,2,4) 

92897280 

Y 

256 

93 

84 

0.015625 

OA(24, 8, 2, 3) 

1.76  X  1045 

N 

256 

163 

99 

0.0078125 

OA(32, 7, 2, 3) 

645120 

Y 

128 

64 

63 

0.015625 

OA(24, 9, 2, 3) 

1.08  X  10*^5 

N 

512 

382 

219 

X 

0 

1 

0 

OA(32,8,2, 3) 

10321920 

Y 

256 

163 

156 

X 

0 

1 

0 

UB(rank(B))  is  the  dimension  of  the  affine  space  to  which  each  indicator  vector  of  the 
OA(/l5^  i,  s,  t)  belongs.  For  OA(5',  i,  s,  t),  Appa  et  al.  [1]  conjectured  that  UB(rank(B))  = 
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dim(Conv(M)),  where  Conv(M)  is  the  convex  hull  of  the  rows  of  M.  By  Theorem  14, 
rank(B)  =  dim(Conv(M)).  Hence,  Table  4.3  appears  to  invalidate  this  conjecture  for 
general  OA(/l5^  i,  s,  t).  However,  there  may  be  inaccuracies  in  the  reported  rank(B) 
values  since  not  all  solutions  may  have  been  enumerated  by  the  solver  or  performing  Q-R 
decomposition  with  100  vectors  at  a  time  may  have  introduced  numerical  precision  errors 
that  lead  to  rejecting  linearly  independent  rows  of  ^  )  from  B.  If  B  is  not  a  basis 

for  (M  -  -^yn  \  the  calculation  of  s,  t)  would  be  incorrect.  Hence,  it  is  essential  to 
make  sure  that  the  elements  in  column  6  are  calculated  correctly.  For  smaller  cases,  in 
which  errors  are  less  likely.  Table  4.3  not  only  verifies  the  Appa  et  al.  [1]  conjecture,  but 
also  suggests  that  Q{i,  s,  t)  =  G(A(/,  v,  t), 

4.5  Research  Objective  4 

Let  Aeq  and  beq  be  the  constraint  matrix  and  the  corresponding  right  hand  side  of  the 
equality  constraints  in  ILP  (2.13).  Let  G(Aeq,0)  and  G(Aeq,beq)  be  computed  as  described 
in  Sections  4.2  and  4.3  respectively.  Let  and  be  the  maximal  subgroups  of 
G(Aeq,  0)^^  and  G(Aeq,  beq)^^  that  map  the  input  OA(d5^  k-  1,  5,  t)  to  itself. 

Theorem  15.  =  //if. 

eqi  eq2 

Proof.  Since  G(Aeq,  beq)^^  c  G(Aeq,  0)^*’,  then  //^f  c  //^f .  Let  x  be  such  that 

-  if 

where  j  =  1, 2,  •  •  •  ,s-  1,  and  z)  be  as  in  the  modified  ILP  (2.13).  Then,  x  is  a  fractional 
solution  to  the  modified  ILP  (2.13).  Hence,  every  solution  to  the  LP  relaxation  of  the 
modified  ILP  (2.13)  can  be  written  in  the  form 

Pmaxl  >X  =  X  +  V>0 

for  some  v  such  that  -x  <  v  <  Pmaxl  -  x  and  v  6  Null(Aeq).  This  is  true  because 
X  is  a  particular  solution  to  AgqX  =  bgq  and  x  >  0.  Now,  the  set  of  all  permutations 
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of  variables  that  map  the  input  OA(As*,k  -  1,5,0  to  itself  must  map  x  to  itself.  Then, 
G(Aeq,beq)'^'’  H  =  G(A^,0)^^  H  //^P .  Thus,  =  H^l.  □ 

Add  baek  the  variables  {x(ii-i)s+s}^=i  to  ILP  (2.13),  and  replaee  2y=i ^ 
r,-,  with  Zy=i -^(!;-i).v+i  =  fir  Also,  add  the  eonstraints  Zli and 
Y,tid'p,a,d'p,a2'"d'p,a,^Aiii-^)^+^  =  ■  Let  A^u  be  the  resulting  matrix  whose  rows 

eorrespond  to  the  equality  eonstraints  in  the  modified  ILP  (2.13),  and  bau  be  the 
eorresponding  right  hand  side.  Let  G(Aaii,  0)^^  and  G(Aaii,  baii)^^  be  eomputed  as  deseribed 
in  Seetions  4.2  and  4.3  respeetively.  Let  and  be  the  maximal  subgroups  of 
G(Aaii,  0)^^  and  G(Aaii,  baii)^^  that  map  the  input  OA(/l5^  k-  1,  5, 0  to  itself. 

Theorem  16.  //^p  =  //lp 

The  proof  is  skipped  as  it  is  analogous  to  the  proof  of  Theorem  15. 

Let  Hsx  be  the  maximal  subgroup  of  G(A(k,  s,  t),  Al)  (as  defined  in  Seetion  2.4)  that 
maps  the  input  OA(As\k  -  1,5,0  to  itself  and  preserves  :  I  =  1,2  -  ■■  ,h}.  Let 

be  the  maximal  subgroup  of  G(A(k,  5,  t),  Al)^^  from  Seetion  4.2  that  maps  the  input 
OA(/l5^ k  -  1,  5, 0  to  itself  and  preserves  {v:(,-,_i)^+i  :  I  =  1,2,  -  ■■  ,h}.  When  H^'l  or  is 
used,  some  OD  elasses  of  OA(/l5^  k,  s,  t)  may  be  lost.  However,  at  least  one  OA(/l5',  k,  s,  t) 
will  be  found  if  the  input  OA(/l5^  k-  1,  5, 0  can  be  extended  to  an  OA(/l5^  k,  s,  t). 

The  Figure  2.6  algorithm  was  used  to  enumerate  all  non-OD  equivalent  OD(160,  k,  2, 4) 
for  k  <  kmax(160, 2, 4)  by  solving  ILPs  (2.13)  and  modified  ILPs  (2.13).  The  modified 
ILPs  (2.13)  were  solved  using  and  Hs,k  and  were  used  to  solve  the  original 
ILPs  (2.13).  Comparisons  were  made  for  effieieney.  Only  using  or  guarantee  that 
no  OD  elasses  are  lost.  However,  a  eomparison  of  the  found  number  of  non-OD  equivalent 
OAs  to  those  found  using  Hs,k  shows  that  none  of  the  methods  lost  OD  elasses  of  OAs.  At 
the  end  of  eaeh  extension  step,  right  before  the  Nauty  [25]  reduetion,  using  H^^k  and 
produeed  the  exaet  same  number  of  solutions.  In  three  of  the  extensions  to  k  =  8,  was 
in  the  order  of  10^^.  These  extensions  were  the  only  infeasibles.  For  the  remaining  feasible 


58 


extensions,  =  \Hs,k\-  Also,  for  each  extension  to  A:  =  9, 10,  =  \Hs,k\-  Hence,  us¬ 

ing  was  slightly  slower  than  using  as  it  requires  calculating  the  projection  matrix 
Pat  for  each  extension.  In  the  extensions  to  A:  =  11,  =  iHskl  in  all  but  four  of  the 

^eq  I  ^4l  I  I  ’  I 

extensions.  In  those  four  extensions,  |^^q^|  is  much  larger  than  This  explains  why 

using  was  about  seven  times  faster  than  using  in  the  extension  to  A:  =  11.  How¬ 
ever,  using  was  still  slightly  faster  for  the  whole  OA(160,  k,  2, 4)  enumeration  starting 
atk  =  1. 

Using  and  resulted  in  similar  solution  times.  Using  outperformed 
for  extensions  up  to  eight  factors.  However,  was  much  faster  than  for  the  extension 
from  eight  factors  to  nine  factors.  Since  this  is  the  bottleneck  extension,  overall,  using 
was  faster  than  using  or  The  number  of  non-OD  equivalent  OAs  found  by  each 
extension  method  and  their  respective  run  times  are  listed  in  Table  4.4. 

OA(176,A:,  2, 4)  enumerations  were  also  made  to  asses  the  speed  of  solving  modified 
ILPs  (2. 13)  with  .  The  same  sequence  of  enumerations  will  be  implemented  by  solving 
ILPs  (2.13)  with  Hs,k-  The  increasing  computational  time  in  solving  modified  ILPs  (2.13) 
with  for  the  OA(I76,k,  2, 4)  cases  suggests  that  the  OA(I92,A:,  2, 4)  cases  are  out  of 
computational  reach  even  if  ILPs  (2.13)  are  solved  with 
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Table  4.4:  Method  Comparisons 


OA(N,  k,  s,  f) 

#  of  Non-OD  Equivalent  OAs 

tjLP  tjLP  IT  uLP 

tl  ,  tl  „  ll<:k 

s,k  all]  eq, 

//LP 

s,k 

Times  (sec.) 

Tjh? 

"eq, 

OA(  160,7,2,4) 

106 

106 

106 

106 

339.85 

443.37 

810.73 

881.41 

OA(160,8,2,4) 

11712 

11712 

11712 

11712 

71410 

72433 

82800 

92509 

OA(  160,9,2,4) 

1608 

1608 

1608 

1608 

598324 

629048 

412753 

473562 

OA(160,10,2,4) 

0 

0 

0 

0 

43299 

17295 

73159 

10333 

OA(  176,7,2,4) 

- 

179 

- 

- 

- 

917 

- 

- 

OA(176,8,2,4) 

- 

129138 

- 

- 

- 

1134186 

- 

- 

OA(  176,9,2,4) 

- 

4 

- 

- 

- 

19313974 

- 

- 

OA(176,10,2,4) 

- 

0 

- 

- 

- 

4 

- 

- 

The  code  to  compute  is  found  in  Bulutoglu  and  Ryan  [8].  The  modification  to  the 
Bulutoglu  and  Ryan  [8]  code  to  make  it  use  is  found  in  Section  B.4.  The  modification 
to  the  Bulutoglu  and  Ryan  [8]  code  to  make  it  use  is  found  in  Section  B.5. 
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V.  Conclusions  and  Future  Research 


5.1  Conclusions 

In  Chapter  3,  it  was  first  shown  that  none  of  the  inequalities  in  the  LP  relaxation  of 
ILP  (3.2)  that  describes  OA{N,k,  s,  t)s  is  redundant.  This  renders  each  inequality  to  be  a 
facet  of  the  LP  relaxation.  In  Section  3.3,  this  result  was  used  to  explicitly  show  that  the 
symmetry  group  G(A'(k,  s,  t),  of  the  LP  relaxation  of  ILP  (3.2)  is  S  {2,...  ,^1  I  S  t-  Even 
though  it  is  easy  to  see  that  S (2,...  ,s}^  Sj,  Q  G(A'(k,  s,  t),  it  is  far  from  trivial  to  show 
that  S {2,...  ,s}  ^  Sk  =  G(A'(k,  s,  t),  b^).  The  practical  value  of  this  result  is  that  there  are  no 
additional  symmetries  that  can  be  exploited  by  using  a  subgroup  of  G{A'(k,  s,t),hm)^^  to 
find  OAs  by  solving  ILP  (3.2). 

Bulutoglu  and  Margot  [7]  previously  proved  that  Gs,k  =  S  ji,...  ,^1  is  a  subgroup  of  the 
automorphism  group  G(A,  Tl,  1,  Pmaxl)  of  ILP  (2.4).  Based  on  computational  observations, 
they  conjectured  that  Gs^k  =  G(A,  Tl,  l,pmaxl)-  This  conjecture  was  proved  in  Chapter  3. 

In  Section  4.2.1,  the  Margot  ILP  solver  [22]  was  used  to  find  a  set  of  all  non¬ 
isomorphic  solutions  to  ILP  (3.2)  exploiting  G{A{k,  ■  This  was  compared  to 

finding  all  non-isomorphic  solutions  to  ILP  (2.5),  which  has  more  variables,  by  exploiting 
the  larger  group  Gs,k-  It  is  legitimate  to  use  Gs,k  to  solve  ILP  (2.5)  as  ILP  (2.5)  and  ILP  (2.4) 
have  the  same  feasible  sets  defined  by  the  same  variables.  For  most  of  the  cases,  a  set  of  all 
non-isomorphic  solutions  to  ILP  (2.5)  with  the  larger  number  of  variables  was  found  faster. 

When  the  Margot  ILP  solver  [22]  is  used  to  solve  a  symmetric  ILP,  it  is  essential  to  find 
larger  subgroups  of  the  ILP’s  symmetry  group  to  speed  up  the  enumeration.  One  easy-to- 
compute  subgroup  is  the  automorphism  group  of  the  formulation,  G(A,  b,  c,  d).  This  group 
coincides  with  the  symmetry  group  of  the  LP  relaxation  G(A,  b,  c,  d)^^,  provided  that  the 
LP  relaxation  has  no  redundant  constraints  and  is  full  dimensional.  Hence,  given  an  ILP 
formulation  whose  LP  relaxation  is  full  dimensional,  finding  G(A,  b,  c,  d)^^  is  a  matter  of 
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culling  the  redundant  constraints  and  computing  the  automorphism  group  of  the  resulting 
formulation.  On  the  other  hand,  for  an  ILP  whose  LP  relaxation  is  not  full  dimensional, 
the  LP  relaxation  may  contain  hidden  symmetries  not  captured  by  G(A,  b,  c,  d),  even  after 
removing  all  the  redundant  constraints. 

The  LP  relaxation  symmetry  group  always  contains  the  automorphism  group  of  an 
ILP  formulation.  Thus,  it  is  more  desireable  to  exploit  the  LP  relaxation  symmetry  group. 
The  LP  relaxation  of  an  ILP  with  equality  constraints  is  not  full  dimensional.  Hence,  it  is 
possible  that  the  LP  relaxation  symmetry  group  of  such  an  ILP  strictly  contains  the  ILP 
formulation  automorphism  group.  In  Sections  4.2  and  4.3,  an  algorithm  was  developed 
for  finding  this  potentially  larger  group.  This  is  the  first  algorithm  for  this  purpose  in  the 
literature. 

In  Section  4.2,  a  special  case  of  the  developed  algorithm  is  applied  to  LP  relaxations 
of  ILPs  with  equality  constraints  that  describe  orthogonal  arrays.  Computational  results  not 
only  revealed  previously  unknown  hidden  symmetries  of  the  ILP  (2.5)  formulation  of  the 
OA  problem,  but  also  demonstrated  that  exploiting  the  newly  found  symmetries  decreases 
solution  times  significantly.  In  Section  4.2.2,  these  newly  found  hidden  symmetries  were 
explicitly  described  as  the  automorphism  group  of  a  system  of  equations  derived  from 
equations  (4.4).  Furthermore,  for  each  k,  t  combination,  G^^  was  conjectured  to  be  the  same 
as  the  symmetry  group  of  the  LP  relaxation  of  ILP  (2.5). 

In  Section  4.3,  the  newly  developed  algorithm  was  used  to  find  the  LP  relaxation 
symmetry  groups  of  modified  versions  of  MILPs  featured  in  Liberti  [18].  All  inequalities 
in  each  MILP  were  first  converted  to  equality  constraints  by  adding  slack  variables.  In 
many  of  these  cases, 

|G(A,b,c,d)^'’|  >  |G(A,b,c,d)|. 

Hence,  this  algorithm  reveals  hidden  symmetries  that  do  not  exist  in  G(A,  b,  c,  d).  If  a  MILP 
solver  with  isomorphism  pruning  is  used  on  these  problems,  it  is  expected  that  exploiting 
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the  larger  groups  would  overcome  the  additional  computational  burden  due  to  the  added 
slack  variables. 

In  Section  4.4,  0{k,  s,  t),  the  symmetry  group  of  ILP  (2.5),  was  calculated  for  several 
k,  s,  t  combinations.  For  most  cases,  all  the  symmetry  in  the  OA  problem  was  captured  by 
the  symmetry  group  of  its  LP  relaxation.  Differences  between  these  groups  occurred  in 
larger  cases  where  numerical  precision  errors  were  more  likely  to  throw  off  calculations. 
As  a  side  benefit,  the  method  developed  for  calculating  0{k,  s,  t)  also  checked  the  validity 
of  a  conjecture  made  by  Appa  et  al.  [1].  The  fact  that  this  conjecture  was  verified  only  in 
the  smaller  cases  suggests  that  this  method  suffers  from  numerical  precision  errors  for  the 
larger  cases. 

In  Section  4.5,  the  LP  relaxation  symmetry  group  was  used  in  various  ways  for  each 
of  the  OA  extensions  based  on  ILPs  (2.13)  in  the  Bulutoglu  and  Ryan  [8]  OA  extension 
algorithm.  Even  though  there  were  some  extensions  in  which  larger  groups  were  found, 
the  computational  savings  did  not  make  up  for  the  time  lost  finding  these  groups.  The  OA 
extension  algorithm  developed  by  Bulutoglu  and  Ryan  [8]  still  remains  the  fastest  known 
for  enumerating  all  non-isomorphic  OA(160,  k,  2, 4)  and  OA(176,  k,  2, 4). 

In  the  next  section,  some  open  problems  are  presented  that  arose  from  the  research  in 
this  dissertation.  In  Section  5.3,  a  set  of  conjectures  is  provided  based  on  observations  from 
the  computational  research  in  Chapter  4.  It  is  proposed  that  future  research  efforts  resolve 
these  conjectures  by  either  proving  them  or  finding  counterexamples.  In  Section  5.4,  a 
list  of  computational  projects  is  proposed  to  improve  upon  the  computional  research  in 
Chapter  4. 

5.2  Open  Problems 

Problem  1.  Determine  the  isomorphism  class  of  the  group  G(A(k,  s,  t),  dl)^^  in  Section  4.1 
by  determing  how  it  relates  to  its  subgroup  G(A(k,  s,  t),  Al)  =  S  [ix-  ,i|  i  S k- 

Problem  2.  Develop  the  theory  and  computational  tools  in  this  dissertation  for  t-designs. 
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5.3  Conjectures 

Conjecture  2.  If  an  OA(As\i,  s,t)  exists,  then  dim{Conv{M))  =  Zy=«+i  (y)  “  iK  where 

M  is  as  in  Section  4.4. 

Conjecture  3.  If  an  OA(As\i,s,t)  exists,  then  Q(i,s,t)  =  G{A{i,  s,t),AV}^^,  where 
G(A(i,  s,  t),  Al)^^  is  as  in  Section  4.2  and  Q{i,  s,  t)  is  as  in  Section  4.4. 

Conjecture  4.  Let  G(A(k,  s,  t),  Al)^^  be  as  in  Section  4.1.  Then, 

' 

(k  +  1)!2^  if  t  is  even,  5  =  2,  and  \  <t  <k, 

\G(A(k,  s,  =  <  k\{s\)^  if  {t  isodd  or  5  >  2)  and  \  <t  <k, 

s^l  otherwise. 

To  prove  this  conjecture,  let  E(N,k,t)  be  the  constraint  matrix  of  the  system  of 
equations  (4.4).  Now,  let  PE(N,k,tY  projection  matrix  onto  the  row  space  of 

E(N,  k,  t).  Then,  as  the  rows  ofE{N,  k,  t)  are  orthogonal,  PE{N,k,tf  =  E(N,  k,  t). 

Furthermore,  G{A{k,l,t),  A\)^^  is  the  automorphism  group  of  this  matrix.  After  fixing  an 
order  for  the  variables,  come  up  with  a  closed  form  formula  for  Use  this  formula 

to  calculate  the  automorphism  group. 

Conjecture  5.  LetA^a,  baw,  and  be  as  in  Section  4.5.  LetA^w  and  baw  be  obtained  from 
Aaii  and Z>aii  by  deleting  the  constraints  'Z,]=i  Nk-ps+j  =  Let  G(Aaii,  0)^^  and  G(Aaii, 
be  computed  as  described  in  Sections  4.2  and  4.3,  respectively.  Let  and  be  the 
maximal  subgroups  o/G(Aaii,  0)^^  and  G(Aaii,6aii)^^  that  map  the  input  OA(As\  k  -  1,  5,  t) 
to  itself  Then,  H\l  = 

5.4  Computational  Research  Improvements 

Project  1.  Resolve  the  numerical  precision  issues  in  the  methods  and  algorithms  used  to 
develop  Table  4.3. 


64 


Project  2.  If  Conjecture  5  is  proven,  compute  by  calculating  the  singular  value 
decomposition  o/Aaii  as  described  in  Section  4.2  for  all  of  the  algorithms  in  this  dissertation 
that  require 
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Appendix  A:  Computer  Code  for  Theoretical  Research 


A.l  MATLAB  Code  for  ILP  (2.4)  Constraints 

Appendix  1/Constraintoa.m 

1  function  A  =  Constraintoa (k , s , t) 

2  %  Usage:  A<- constraintoa (8 , 2  ,  2) 

3 

4  filePath  =  mfilename ( ’ fullpath ’ ) ; 

5  filePath  =  f ilePath ( 1 : (length (filePath) -length(mfilename (’’))) ) 

6  [~ ,  ~]  =  system(strcat (’ mkdir 32 , filePath A_Matrices ’)) ; 

7  filePath  =  ... 

strcat (filePath , ’ A_Matrices/Ak ’ , num2str (k) , ’s’ , numZstr (s) , . . 

8  ’ t ’ , num2str (t) , ’ . txt  ’  ) ; 

9 

10  %  Vector  of  I’s  of  length  s 

11  ps  =  ones (1 , s)  ; 

12  %  Identity  matrix  of  size  s 

13  iss  =  eye (s)  ; 

14  %  Generate  all  k  choose  t  combinations 

15  indexmat  =  combntns ( 1 : k , t) ; 

16 

17  %  Count  the  number  of  cases 

18  numcases  =  size (indexmat  ,  1); 

19 

20  %  Initialize  A  with  an  empty  matrix 

21  %A=[]; 

22 

23  fcoa  =  fopen(filePath , ’ w ’ ) ; 

24 

25  %  Build  the  A  matrix 
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26  for  j  =  l:l:numcases 

27  temp  =  1 ; 

28  for  i  =  1 ;  1 :  k 

29  if  sum(i*ones (1 , t) ==indexmat ( j , : ) ) 

30  temp  =  kron(temp , iss) ; 

31  else 

32  temp  =  kron(temp , ps)  ; 

33  end ; 

34  end ; 

35  %A  =  [A;  temp]; 

36  for  i  =  1 ;  1 :  size  (temp  ,  1) 

37  fprintf (fcoa , strcat (repmat ( ’%d  ... 

’  ,  1 ,  size  (temp  ,  2)  - 1)  ,  32  ,  ’  %d\n  ’  )  ,  temp  (i  ,  :  )  )  ; 

38  end ; 

39  end ; 

40 

41  fclose (fcoa) ; 

42 

43  A  =  dlmread(filePath) ; 

A.2  Column  Permutations  of  ILP  (2.4)  Constraint  Matrix 

Appendix  1  /kstRandPermProb.m 

1  clear;  clc; 

2 

3  % - Determine  folder  containing  the  m  file 

4  filePath  =  mf ilename ( ’ fullpath ’ ) ; 

5  filePath  =  filePath (1 : (length(filePath) -length(mfilename (’’))) ) 

6 

7  % - List  of  fraction  probabilities - 

8  fileName  =  strcat (filePath FractionProb . csv ’) ; 

9  fprob  =  fopen(fileName , ’ w ’ ) ; 


67 


10  fprintf (fprob , strcat ( ’ k , s , t , #  Frac,#  Total , P(Frac) \n ’) ) 

11  fclose (fprob) : 

12 

13  for  s  =  2:1:4 


14 

for  k  = 

4:1: round  C26/s) 

15 

for 

t  =  1:1: (k-2) 

16 

17 

X  =  [k  s  t  zeros (1 , 3) ] ; 

18 

19 

% - Display  current  OA  to  user - 

20 

disp(strcat( ’ Processing  0A(k=’ ,num2str(k) 

s= ’ , num2str (s) ,  ... 

21 

’ ,  t=’ ,  num2str(t) ,’)....’)); 

22 

23 

% - Constraint  OA  matrix - 

24 

A  =  Constraintoa (k , s , t) ; 

25 

n  =  size (A  ,  2)  ; 

26 

X(5)  =  1000; 

27 

for  i  =  1:1:X(5) 

28 

R  =  A( : , randpermCn) ) : 

29 

R  =  [R  ones (size (R  ,  1)  ,  1)  ]  : 

30 

R  =  rref (R) ; 

31 

if  sum(sum((R-round(R))>0))>0 

32 

X(4)  =  X(4)  +  1; 

33 

end ; 

34 

end ; 

35 

clear  A  R; 

36 

X(6)  =  X(4)  /  X(5); 

37 

38 

dlmwrite (f ileName , X , ’ -append ’ , ’delimiter’ 

39 

end ; 

40 

end ; 
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41  end ; 


A.3  MATLAB  Code  to  Generate  Rosenberg  [29]  Constraints 

Appendix  1  /Rosenberg.m 

1  function  [a,  A,  rhs]  =  Rosenberg (k,  s,  t,  lam) 

2  %UNTITLED  Summary  of  this  function  goes  here 

3  %  Detailed  explanation  goes  here 

4 

5  %Rosenberg= function (k,s,t,lam){ 

6  %a=as .matrixCc(rep(0 , (t+1)))) 

7  a  =  zeros Ct  +  1 ,  1)  ; 

8a(l,l)  =  lam; 

9  cc  =  1 ; 

10  while  cc  <  t  +  1 

11  tut  =  lam; 

12  for  i  =  1 : 1 : cc 

13  if  (cc-i+1)  <=  (k-t) 

14  tut  =  tut -a(i , 1) *nchoosek ( (k-t) , (cc -i  +  1) )* (s - 1) “ (cc-i  +  1) 

15  end ; 

16  end ; 

17  a(cc  +1,  1)  =  tut; 

18  cc  =  cc  +  1; 

19  end ; 

20 

21  N  =  ®; 

22  for  i  =  0 : 1 : t 

23  N  =  N  +  nchoosek(k,  i)  *  (s  -  I)"!; 

24  end ; 

25  m  =  s"k  -  N; 

16  k  -  zeros (N , m) ; 

27  rhs  =  zeros(N,l); 
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28  rl 

29  for 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49  end 

50 

51  end 
A.4 


^  1; 

j  =  l:l:Cs"k) 

mml  =  dec2base ( j - 1 ,  s,  32)-’8’: 
ml  =  sum(mml>8) ; 

X  =  find(mml>=l)  ; 
if  ml  <=  t 

ccc  =  t  -  ml ; 
r2  =  1 ; 

for  i  =  1:1: (s"k) 

mm2  =  dec2base (i - 1 ,  s,  32)-’8’; 
m2  =  sumCmm2>Q) ; 
if  m2  >  t 

if  sum( (mm2 (x) -mml (x) ) . “ 2>Q)  ==  Q  &&  ccc  <=  m2-t+cc-l 
A(rl,r2)  =  ( - 1) “ (ccc+1) *nchoosek (m2 -t+ccc - 1 , ccc) ; 

end ; 

r2  =  r2  +  1 ; 

end ; 

end ; 

rhs(rl,l)  =  -l*a(ccc+l , 1) ; 
rl  =  rl  +  1; 

end ; 


MATLAB  Code  to  Test  Theorem  6 


Appendix  1  /newFacetTest.m 

1  clear;  clc; 

2 

3  %if  matlabpool ( ’ size ’ )  ==  Q 

4  %  matlabpool  open  local  3 
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5  %end; 

6 


7  options  =  optimset ( ’ Maxiter ’ ,  100080,  ’TolFun’,  10e-8)  ; 

8  filePath  =  strrep (mfilename ( ’ fullpath ’ ) , mfilename ( ’ ’ ) , 

9  addpath(filePath) ; 

10  cmd_line  =  strcat (’ mkdir 32 , filePath Facet_Solutions 

11  =  system(cmd_line) : 

12  filePath  =  strcat (filePath Facet_Solutions/ ’) ; 


13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


Cases= [6 ,2,3,5 

5. 2. 2.1 
5  ,2  ,2  ,2 

5. 3. 2. 2 

5. 3. 3. 2 

5. 3. 3. 3 

5. 3. 2. 3 

4. 2. 2.1 
8 , 2  ,  2  ,  2 

7. 2. 2.1 

6. 2. 2.1 

9.2  ,2  ,2 

7. 2. 2. 2 

6 . 2  ,  2  ,  2 
7, 2, 3, 7 

8. 2. 4. 5 

9. 2. 4. 5 

9. 2. 5. 5 

9. 2. 3. 6 

10.2.4.11 

10.2.5.12 

6, 3, 3, 2 

7. 3. 3. 7 
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37  8 , 3  ,  3 , 7 

38  9, 3, 2, 2]; 

39 

40  CaseCount  =  size (Cases  ,  1)  ; 

41  k  =  Cases ( :  ,  1)  ; 

42  s  =  Cases  (  :  ,  2) ; 

43  t  =  Cases  (  :  ,  3)  ; 

44  1  =  Cases  (  :  ,  4)  ; 

45 

46  for  i=l : 1 : CaseCount 

47  ko  =  k(i)  : 

48  so  =  s (i)  ; 

49  to  =  t  (i)  ; 

50  lo  =  Ki)  : 

51  [~ , A , b] ^Rosenberg (ko,so,to,lo): 

52  n=size (A  ,  2)  ; 

53  b  =  - 1*  [b  ;  zeros  (n  ,  1)  ]  ; 

54  A  =  - 1*  [A ;  eye  (n)  ]  ; 

55  m=size (A , 1) ; 

56  fileNamel  =  ... 

strcat(filePath, ’edgeXk’ , num2str (ko) , ’ s ’ , num2str (so) , ’ t 

57  num2str (to) , ’ lam ’ , num2str (lo) , ’ . csv ’ ) ; 

58  fileName2  =  ... 

strcat(filePath, ’ cornerXk ’ , num2str (ko) , ’s’ , num2str (so) , 


59 

num2str (to) , ’ lam ’ 

, num2str (lo)  ,  ’ 

60 

for  j  =  Q:l:((ko  +  l)''n 

-1)  %#ok<PFRNG 

61 

Xo  =  (dec2base ( j , ko  +  1 , n) - ’ 0 ’ )  ’  : 

62 

d  =  b  -  A*((lo/so- 

(ko-to) ) *Xo) ; 

63 

if  min(d)  >=  Q  && 

sum(d==Q)  >  Q 

64 

display (sum(d= 

=Q))  ; 

65 

display(Xo  ’) ; 

66 

if  sum(d==0)  = 

=  1 
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67 


f  ileName 


fileNamel ; 


68 


else 


69 


fileName  =  fileName2 ; 


70 


end ; 


71 


dlmwrite (fileName , Xo ’ , ’ -append ’ , ’delimiter’ , ’ , ’) ; 


72 


end ; 


73  end ; 


74  end; 


75 


76  %matlabpool  close ; 


A.5  MATLAB  Code  to  Implement  Espinoza  [9] 


Appendix  1  /ExactSolve .  m 


1  function  [  status,  X  ]  =  ExactSolve (  £,  A,  b,  Aeq ,  beq ,  lb,  ub , 

FileName  ) 

2  %UNTITLED2  Summary  of  this  function  goes  here 

3  %  Detailed  explanation  goes  here 

4 

5  n  =  max ( [size (A , 2)  ,  size (Aeq , 2) ] )  ; 

6  X  =  zeros (n  ,  1)  ; 

7 

8  FilePath  =  strrep (mfilename (’ fullpath ’), mfilename (’’),’’) ; 

9  addpath (s treat (FilePath , ’ BuildMPS  ’  ) )  ; 

10  InputPath  =  streat ( ’mkdir ’, 32 , FilePath ,’ MPS_Files ; 

11  =  system(InputPath)  ; 

12  InputPath  =  streat (FilePath ,’ MPS_Files ; 

13  OutputPath  =  streat ( ’mkdir ’, 32 , FilePath ,’ Solver_0utput ; 

14  =  system(OutputPath) ; 

15  OutputPath  =  streat (FilePath ,’ Solver_0utput ’)  ; 

16  addpath (streat (FilePath, ’ Pro j ection_Matr ices ’ ) )  ; 

17 
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18  InputPath  =  strcat (InputPath , ’ / ’ , FileName ,  ’  . mps  ’  ) ; 

19  OutputPath  =  strcat (OutputPath FileName sol ; 

20 

21  [~,  OK]=BuildMPSCA,  b,  Aeq ,  beq ,  £,  lb,  ub, ’INPUT’,  ... 

22  ’ MPSf ilename ’ ,strcat(’MPS_Files/’ , FileName , ’ . mps ’ ) ) ; 

23 

24  if  OK  ==  0 

25  return; 

26  end ; 

27 

28  cmd_line  =  strcat (FilePath ,’ QSopt_ex -2 . 5 . 10/bin/ . /mpq_solver  -O’, 32, 

29  InputPath , 32 , ’ > ’ , 32 , OutputPath) ; 

30 

31  [status ,  "]  =  system(cmd_line) ; 

32 

33  if  status  ==  0 

34  fin  =  fopen(OutputPath) ; 

35  tline  =  fgets(£in); 

36  while  ischar (tline)  &&  length(tline)  ==  ... 

37  length(strrep(tline ,’ Solution  Values’,’’)) 

38  tline  =  fgetsCfin); 

39  end ; 

40  if  length(tline)  >  length(strrep(tline ,’ Solution  Values’,’’)) 

41  while  ischar (tline)  &&  length(tline)  ==  ... 

length(strrep(tline ,’=’,’’)) 

42  tline  =  fgets(£in); 

43  end ; 

44  while  ischar (tline) 

45  if  length (tline)  >  length(strrep (tline ,’=’,’’) ) 

46  i  =  strfind (tline ,  ’=’)-!; 

47  j  =  str2double (strrep (tline (1 : i) ,’ X ’,’’)) ; 

48  k  =  sym(tline ( (i+2 : length(tline) ) ) ) ; 
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X(j  ,1)  =  k; 


49 


50 


end ; 


51 


tline  =  fgets(£in); 


52 


end ; 


53 


else 


54 


status  =  2 ; 


55  end ; 


56  fclose (fin) ; 


57  end ; 


58 


59  end 


A.6  MATLAB  Code  to  Remove  Layers  in  Nauty  [25]  Output 


Appendix  1  /GLPRemo  veLay  ers .  m 


1  function  GLPRemoveLayers (dfix ,  numvar ,  infile,  outfile) 

2  %  This  function  removes  layers  for  the  GLP  group 

3 

4  fin  =  fopen (inf ile) ; 

5  fout  =  fopen(out£ile ,  ’w’); 

6 

7  tline  =  fgets(fin); 

8  A  =  []  ; 

9  linelen  =  78; 

10 

11  while  ischar (tline) 

12  %  set  correct  number  of  vertices 

13  if  length(tline)  >  length(strrep (tline n= ’,’’) ) 

14  j  =  1; 

15  while  j  <  (length(tline) -8)  &&  ... 

16  ~ strcmp (tline (j  :  (j  +  l)),’n=’) 


17 


j  =  j  +  1; 
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18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 


end ; 

j  =  j  +2; 

q  =  j : 

while  q  <  length(tline)  &&  " strcmp (tline (q) ,  ’  ’) 
q  =  q  +  1; 

end ; 

n  =  str2double (tline (j : q) ) ; 

tline  =  strrep (tline , street C ’ n= ’ ,  num2str(n)),  ... 
street  (  ’  n=  ’  ,  num2str  (numver )  )  )  ; 

end ; 

if  length(tline)  >  length(strrep (tline linelen= ) 
j  =  1; 

while  j  <  (length(tline) -8)  &&  ... 

~ strcmp (tline (j : (j  +  7) ) , ’ linelen= ’ ) 

j  =  j  +  1; 

end ; 

j  =  j  +8; 

q  =  j : 

while  q  <  length(tline)  &&  “ strcmp (tline (q) ,  ’  ’) 
q  =  q  +  1; 

end ; 

n  =  str2double (tline (j : q) ) ; 

tline  =  strrep (tline , street (’ linelen= ’ ,  num2str(n)),  ... 
strcet(’linelen=’ , num2str (linelen) ) ) ; 

end ; 

B  =  str2num(tline) ;  %#ok<ST2NM> 

if  max(size(B))  ==  0  |  |  ~strcmp(tline  (1 : 4)  ,  ’  ’) 

if  max(size(A))  >  0 
A  =  floor (A . /dfix) ; 

[~, index]  =  unique (A first ;  %  Capture  the  index,  ... 
ignore  junk 
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46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68  % 

69  % 

70  % 

71  % 

72  % 

73  % 

74  % 

75  % 

76  % 


A  =  A(sort(index))  ;  %  Index  A  with  the  .. 

sorted  index 
k  =  max (size (A) )  ; 
outtext  =  ’  ’  : 
for  i=l : 1 : k 

if  length(outtext)  +  lengthCnum2str(A(i)))  <  linelen 
outtext  =  street (outtext , 32 , num2str CA(i) )) ; 

else 

fprintf (fout , streat (outtext , ’ \n ’ ) ) ; 
outtext  =  streat (32 , 32 , 32 , 32 , num2str (A(i) ) ) ; 

end ; 

end ; 

fprintf (fout , streat (outtext , ’ \n ’ ) ) ; 

A  =  []; 

end ; 

if  max(size(B))  ==  Q 

fprintf (fout ,streat(tline, ’\n’)) ; 
else 

A  =  B; 

end ; 

else 

A  =  [A,  B] :  %#ok<AGR0W> 

end ; 

if  length (tline)  >  length(strrep(tline linelen 

j  =  1; 

while  j  <  (length(tline) -8)  &&  ... 

~ stremp (tline (j : (j  +  7) ) , ’ linelen= ’ ) 

j  =  j  +  1; 

end ; 

j  =  j  +  8; 
q  =  j  : 

while  q  <  length (tline)  &&  ~ stremp (tline (q)  ,  ’  ’) 
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77  % 


q  =  q  +  1; 


78  %  end; 

79  %  linelen  =  str2double (tline ( j : q) ) ; 

80  %  end ; 

81  tline  =  fgets(£in); 

82  end ; 

83 

84  fclose (fin) ; 

85  fclose (font) ; 

86 

87  end 

A.7  MATLAB  Code  to  Test  Theorem  8 

Appendix  1/ProjMatrix.m 

1  clear;  clc; 

2 

3  % - Determine  folder  containing  the  m  file 

4  filePath  =  mf ilename ( ’ fullpath ’ ) ; 

5  filePath  =  filePath (1 : Clength(£ilePath) -length(mfilename (’’)))) ; 

6  Linux_Command  =  strcat (filePath Linux_Command . txt ’) ; 

7  fcom  =  fopen(Linux_Command , ’ w  ’  ) ; 

8 

9  % - Make  subdirectories  for  files - 

10  =  system( strcat (’ mkdir 32 , filePath Pro j ection_Matrices ’) ) 

11  addpath (strcat (filePath, ’ Pro j  ection_Matr ices  ’  ) )  ; 

12  =  system( strcat (’ mkdir 32 , filePath g6_Files ’)) ; 

13  addpath (strcat (filePath , ’ g6_Files  ’  ) )  ; 

14  =  system(strcat ( ’mkdir 32 , filePath Junk ’)) ; 

15  addpath (strcat (filePath, ’ Junk ’ )) ; 

16  [~,~]  =  system( strcat (’ mkdir ’, 32 , filePath ,’ Gap_Input ’)) ; 

17  addpath (strcat (filePath , ’ Gap_ Input ’ ) ) ; 
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18  =  systemCstrcat ( ’ mkdir ’ , 32 , filePath , ’ Dreadnaut_Input ’ ) ) ; 

19  addpath (s treat (filePath, ’ Dreadnaut_Input ’ ) ) ; 

20  =  systemCstrcat ( ’mkdir 32 , filePath ,  ... 

21  ’ Dreadnaut_Input/Permutation ’ ) ) ; 

22  addpath (streat (filePath , ’ Dr eadnaut_Input /Permutation ’ ) ) ; 

23  =  systemCstrcat (’ mkdir 32 , filePath Dreadnaut_Input/Cycle ’)) ; 

24  addpath (streat (filePath, ’ Dr eadnaut_Input/ Cycle ’ ) ) ; 

25  [~,~]  =  system( streat (’ mkdir ’, 32 , filePath ,’ Dreadnaut_Output ’)) ; 

26  addpath (streat (filePath , ’ Dreadnaut_Output  ’  ) )  ; 

27  [“,“]  =  systemCstrcat ( ’mkdir ’, 32 , filePath ,  ... 

28  ’  Dr eadnaut_Out put /Original  ’  ) )  ; 

29  addpath (streat (filePath, ’ Dr eadnaut_Output /Original  ’  ) )  ; 

30  [","]  =  systemCstrcat ( ’mkdir ’,  32 ,  filePath  ,  ... 

31  ’ Dreadnaut_Output/Original/Permutation ’ ) ) ; 

32  addpath (streat (filePath , ’ Dr eadnaut_Output /Original/Permutation ’ ) ) ; 

33  [","]  =  systemCstrcat ( ’mkdir ’, 32 , filePath ,  ... 

34  ’ Dr eadnaut_Output /Original /Cycle ’ ) ) ; 

35  addpath (streat (filePath , ’ Dr eadnaut_Output /Original/Cycle ’ ) )  ; 

36  [",“]  =  systemCstrcat (’ mkdir ’, 32 , filePath ,’ Dreadnaut_Output/Reduced ’) ) 

37  addpath (streat (filePath, ’ Dr eadnaut_Out put /Reduced ’ ) ) ; 

38  [","]  =  systemCstrcat ( ’mkdir ’,  32 ,  filePath  ,  ... 

39  ’ Dreadnaut_Output/Reduced/Permutation ’ ) ) ; 

40  addpath (streat (filePath , ’ Dr eadnaut_Output/ Reduced/Permutation ’ ) ) ; 

41  [~,~]  =  systemCstrcat ( ’mkdir ’, 32 , filePath ,  ... 

42  ’ Dreadnaut_Output/Reduced/Cycle  ’  ) )  ; 

43  addpath (streat (filePath, ’ Dr eadnaut_Out put /Reduced/ Cycle ’ ) ) ; 

44 

45  % - Linux  command  to  run  gap  silently - 

46  gap  =  ’/usr/share/gap4r5/bin/gap-default64 . sh  -q’; 

47 

48  % - Linux  command  line  script  for  Hnosigneff  executable - 

49  Hnosigneff  =  streat (filePath ,’ Hnosigneff ; 
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50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 


% - Nauty  Linux  command  line  scripts -- 


nautyFile  =  strcat (f ilePath , ’ nauty2 5rc 1/ ’  )  ; 


%  Folder 


containing  nauty 


listg  =  strcat (nautyFile listg  -d’); 


%  listg  executable 


dreadnaut  =  strcat (nautyFile dreadnaut  <’); 


%  dreadnaut  executable 


% - List  of  permutation  group  sizes - 

ftime  =  fopen(strcat (filePath , ’ Run_Times . CSV ’ ) , ’w ’ ) ; 
fprintf (ftime ,strcat(’k,s,t,Constraintoa, ’ ,  . . . 

’Projection  Matrix, Lower  Half  of  P , Hnosigneff , listg , dreadnaut , 
’ RemoveLayers , Gap\n ’ ) ) ; 

fsizes  =  fopen( strcat (filePath Group_Sizes . CSV w ; 
fprintf (f sizes ,strcat(’k,s,t,dfix,k! (((s-1) Ij^k, Stabilizer, ’ ,  . . . 

’ (k+1) k ! (s !) "k , Group  Size\n’)); 

for  k  =  4:1:7 

for  s  =  2:1:4 

for  t  =  2 : 1 : min ( [ (k- 1)  4]) 


% - Display  current  OA  to  user - 

disp(strcat( ’ Processing  0A(k= ’ ,num2str(k) , ’ ,  ... 
s= ’ , num2str (s) ,  ... 

’ ,  t=’ ,  num2str(t) 

fileLabel  =  strcat (’ k ’, num2str (k) ,’ s ’, num2str (s) ,’ t ’ ,  ... 
num2str (t) ) ; 

PfileName  =  strcat (filePath ,’ Projection_Matrices/P  ’  ,  ... 
fileLabel , ’ . txt  ’  )  ; 

gGfileName  =  strcat (filePath ,’ g6_Files/P ’, fileLabel ,’. g6 ’) ; 
dreadInPerm  =  strcat (filePath ,  ... 

’ Dreadnaut_Input/Permutation/aa ’ , fileLabel , ’ . naut . inp ’ ) ; 
dreadInCycle  =  ... 

strcat (filePath  , ’ Dreadnaut_Input/Cycle/aa ’  ,  ... 
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79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 


fileLabel , ’ . naut . inp ’ ) ; 
dreadOutPerm  =  strcat (filePath ,  ... 

’ Dreadnaut_Output/Original/Permutation/aa ’ , fileLabel , ’ . out ’ ) ; 
dreadOutCycle  =  strcat (filePath ,  ... 

’ Dreadnaut_Output/Original/Cycle/aa ’ .fileLabel , ’ .out’) ; 
PermLayer  =  strcat (filePath ,  ... 

’ Dreadnaut_Output/Reduced/Permutation/aa ’ , fileLabel , ’ . out ’ ) ; 
CycleLayer  =  strcat (filePath ,  ... 

’ Dreadnaut_Output/Reduced/Cycle/aa ’ , fileLabel , ’ . out ’ ) ; 
junk  =  strcat (filePath Junk/ junk fileLabel) ; 
gapinput  =  ... 

strcat (filePath , ’ Gap_Input/gap ’ .fileLabel .  ’  .txt’)  ; 
tic ; 

A  =  Constraintoa (k . s . t) ’  ; 

fprintf (ftime .strcat (numZstr (k) . ’ . ’ . num2str (s) . ’ . ’ .  ... 
num2str (t) . ’ . ’ . num2str (toe) . ’ . ’ ) ) ; 

% - Projection  matrix  using  Moore  Penrose  ... 

pseudoinverse - 

tic ; 

P  =  A  *  pinv(A’*A)  *  A’; 

fprintf (ftime .strcat (num2str (toe) . ’ . ’  )  )  ; 

clear  A; 

% - Save  lower  half  of  P  as  a  vector  in  a  text  file - 

tic ; 

p  =  zeros(l . sum(l : size(P . 1)))  ; 
for  n  =  1 : 1 :  size  (P  .  1) 

p (1 . (sum(l : (n- 1) ) +1) : (sum(l : (n- 1) )+n) )  =  P(n.l:n); 

end ; 

clear  P; 

fp  =  fopen(PfileName . ’w’ ) : 
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109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 


fprintf (fp , 11£  ’,p): 
fclose (fp) ; 

fprintf (f time , s treat (num2str (toe) 

clear  p  m  n  j  ; 

% - Call  Hnosigneff - 

tic ; 

lin_com  =  ... 

s treat (Hnosigneff , 32 , PfileName , 32 , g6fileName  ,  32  ,  ... 

num2str (s"k)) ; 

fprintf (fcom , streat (lin_com , ’ \n ’ ) ) ; 

[status ,  result]  =  system(lin_com) ; 
if  status  ~=  0 

dispCstrcat (’ Error  from  Hnosignef 1® , result , 10) ) ; 
fprintf (ftime , ’\n’) ; 
fprintf (f sizes , ’\n’ ) ; 
break ; 

end ; 

fprintf (ftime , streat (num2str (toe) ,’,’)); 

% - Load  value  for  dfix - 

j  =  1; 

while  j  <  (length(result) -8)  &&  ... 

~ stremp (result (j : (j  +  6) ) , ’ ncolor= ’ ) 

j  =  j  +  1; 

end ; 

j  =  j  +7; 
n  =  j  ; 

while  n  <  length(result)  &&  ~ stremp (result (n) ,’:’ ) 
n  =  n  +  1 ; 
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140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167  % 

168  % 

169  % 

170  % 


end ; 

dfix  =  str2double (strrep (result (j :n) 

% - Call  listg - 

tic ; 

lin_com  =  strcat (listg , 32 , gGfileName) ; 
fprintf (fcom , strcat (lin_com , ’ \n ’ ) ) ; 

[status ,  result]  =  system(lin_com) ; 
if  status  ~=  0 

disp(strcat (’ Error  from  listg 10 , result , 10) ) ; 
fprintf (ftime , ’\n’) ; 
fprintf (f sizes , ’\n’ ) ; 
break ; 

end ; 

fprintf (ftime , strcat (num2str (toe) ,’,’)); 
fjunk  =  fopen( junk , ’ w ’ ) ; 
fprintf (f junk .result) ; 
fclose (fjunk) ; 

% - Make  input  file  for  dreadnaut  (permutations) - 

fperm  =  fopen(dreadInPerm ,  ’w’); 

fprintf (fperm , strcat ( ’ < ’  , 32 , junk , ’ \np\n> ’  , 32 , dreadOutPerm ,  . . . 

’\n?\nx\n’)) ; 
fclose (fperm) ; 

% - Call  dreadnaut  (permutations) - 

tic : 

lin_com  =  strcat (dreadnaut , 32 , dreadInPerm) ; 
fprintf (fcom, strcat (lin_com , ’ \n ’ ) ) ; 

[" ,  ~]  =  system(lin_com) ; 
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171  % 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196  % 

197  % 

198  % 

199 

200 

201 

202 


toe : 


% - Make  input  file  for  dreadnaut  (cycles) - 

feye  =  fopen(dreadInCycle ,  ’w’); 

fprintf (feye , streat ( ’ < ’ , 32 , junk , ’ \n?\nx\n ’ ) ) ; 

fclose (feye) ; 

% - Call  dreadnaut  (cycles) - 

tic ; 

lin_com  =  streat (dreadnaut , 32 , dreadInCycle) ; 
fprintf (fcom , streat (lin_com , ’ \n ’ ) ) ; 

[status ,  result]  =  system(lin_com) ; 
if  status  0 

disp(strcat (’ Error  from  dreadnaut IQ , result , 10) ) ; 
fprintf (ftime , ’\n’) ; 
fprintf (f sizes , ’\n’ ) ; 
break ; 

end ; 

fread  =  fopen(dreadOutCycle , ’ w  ’  ) ; 
fprintf (fread , result) ; 
fclose (fread) ; 

fprintf (ftime , streat (numZstr (toe) ,’,’)); 

% - Remove  layers  (permutations) - 

tic : 

RemoveLayers (dfix ,  dreadOutPerm ,  PermLayer ,  0); 
toe : 


% - Remove  layers  (cycles) - 


tic : 
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207 

208 

209 
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213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 


RemoveLayers (dfix ,  dreadOutCycle ,  CycleLayer  ,  1); 
fprintf (ftime , s treat (num2str (toe) ,’,’)); 

% - Create  Gap  Input  file - 

result  =  num2str(StabilizerGroup(k,  s,  t)); 
while  length(strrepCresult , ’  ’,’’))  <  length(result) 

result  =  strrep (result  ,  ’  ’); 

end ; 

result  =  strrep(strtrim(result) , ’ 

fgap  =  fopen(gapInput ,  ’w’); 

fprintf (f gap , strcat(’Read(" ’ .CycleLayer ,  . . . 

\nSize (sys) ; \nSize (Stabilizer (sys  ,  result,  ... 
’] , Onsets)) ;\nquit ;\n’)) ; 
fclose (fgap) ; 

% - Run  Gap  to  get  size - 

tic ; 

lin_com  =  streat (gap , 32 , ’ < ’ , 32 , gapinput) ; 
fprintf (fcom , streat (lin_com , ’ \n ’ ) ) ; 

[status ,  result]  =  system(lin_com) ; 
result  =  FormatResult (result) ; 

if  status  ~=  0  I  I  max(size (result) )  2  %#ok<BDSCA> 

disp(strcat( ’ Error  from  gap 1® , result  ,  18) ) ; 
fprintf (ftime , ’\n’) ; 
fprintf (f sizes , ’\n’ ) ; 
break ; 

end ; 

fprintf (f sizes .streat (num2str (k) , ’ , ’ , num2str (s) , ’ , ’ ,  ... 
num2str(t) , ’ , ’ ,  num2str (dfix) , ’ , ’ ,  ... 
num2str (factorial(k)*(factorial(s-l))"k) , ’ , ’ ,  .  .  . 
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235 


num2str (result (2) ) , ’ , ’ , num2str ((k+1)* factorial (k) 


236 


(factorial(s))“k) , ’ , ’ , num2str (result (1) ) , ’ \n ’ ) ) ; 


237 


fprintf (ftime , strcat (num2str (toe) , ’ \n ’ ) ) ;  %  (k+1) k ! (s ! ) "k 


238 


end ; 


239  end ; 


240  end ; 

241 

242  fclose (fcom) ; 

243  fclose (fsizes) ; 

244  fclose (ftime) ; 
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Appendix  B:  Computational  Research  Computer  Code 


B.l  Code  For  Table  4.1  Column  3 

Appendix2/BF6GLP.m 

1  function  BF6GLP (nautyFile ,  Hnosigneff,  k,  s,  t  ) 

2 

3  AAout  =  ’ ’ ;  %#ok<NASGU>  Set  the  output  to  an  empty  string 

(default) 

4 

5  numDigit  =12;  %  Number  of  digits  for 

precision 

6 

7  % - UNIX  command  line  passes  all  inputs  as  strings ,  convert  to  . .  . 

integers - 

8  if  ischar(k) 

9  k  =  str2double (k) ; 

10  end ; 

11 

12  if  ischar(s) 

13  s  =  str2double  (s)  ; 

14  end ; 

15 

16  if  ischar(t) 

17  t  =  str2double (t)  ; 

18  end ; 

19 

20  % - Determine  folder  containing  the  m  file 

21  [~  ,  filePath]  =  system (’ pwd ’) ; 

22  addpath(filePath) ; 

23 
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24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


% - Set  intermediate  file  names - 

fileLabel  =  strcat (num2str (k) , ’ . ’ , num2str (s) , ’ . ’ ,  num2str(t)) ; 
aaSizef ileName  =  strcat (filePath /aa ’ ,  fileLabel naught . size ; 
PfileName  =  strcat (filePath /P ’ ,  fileLabel txt ; 
g6fileName  =  strcat (filePath /P fileLabel g6 ’) ; 
dreadInPerm  =  strcat (filePath /aa ’ ,  fileLabel naut . inp ’) ; 
dreadOutPerm  =  strcat (filePath /aa ’ ,  fileLabel out ; 
dreadOutLayer  =  strcat (filePath /aa ’ ,  fileLabel red . out ’) ; 
junk  =  strcat (filePath /junk fileLabel txt ; 
aagrp  =  strcat (filePath /aa ’ ,  fileLabel grp ’) ; 

% - Nauty  Linux  command  line  scripts - 

listg  =  strcat (nautyFile listg  -d’);  %  listg  executable 

dreadnaut  =  strcat (nautyFile dreadnaut  <’);  %  dreadnaut  executable 

% - Generate  Rosenberg  constraint  matrix - 

=  Rosenberg (k , s , t ,  1)  ; 

%A  =  [eye (size (A , 1) )  ,  -1*A]  ’  ; 

A  =  Constraintoa (k , s , t)  ’  ; 

% - Projection  matrix  using  Moore  Penrose  pseudoinverse - 

P  =  A  *  pinv(A’*A)  *  A’; 
clear  A; 

% - Save  lower  half  of  P  as  a  vector  in  a  text  file - 

p  =  zeros (1 , sum(l : size (P  ,  1) ))  ; 
for  n  =  1 : 1 :  size  (P  ,  1) 

p (1 , (sum(l : (n- 1) ) +1) : (sum(l : (n- 1) )+n) )  =  P(n,l:n); 

end ; 

for  n  =  1 : 1 :  size  (p  ,  2) 

if  abs(p(l,n))  <=  18“ (-l*numDigit) 
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56 


p(l ,n)  =  Q; 


57  end ; 

58  end ; 

59  clear  P; 

60 

61  fp  =  fopenCPfileName , ’w’ ) ; 

62  fprintf (£p ,strcat(’%. ’ , num2str (numDigit) , ’f’  ,32)  ,p); 

63  fclose (fp) ; 

64 


65  clear  p  n  j ; 

66 

67  % - Call  Hnosigneff - 

68  lin_com  =  strcat (Hnosigneff , 32 ,  PfileName , 32 ,  g6fileName , 32 , 

num2str(s“k)) ; 

69 

70  [status,  result]  =  system(lin_com) ; 

71  if  status  "=  0 

72  AAout  =  strcat (’ Error  from  Hnosigneff IQ , result , 10) ; 

73  disp (AAout): 

74  return; 

75  end ; 


76 

77  % - Load  value  for  dfix - 

78  j  =  1; 

79  while  j  <  (length(result) -1)  &&  ... 

80  ~ strcmp (result (j : (j  +  l)),’d=’) 

81  j  =  j  +  1; 

82  end ; 


83  j  =  j  +  2 ; 

84  q  =  j  : 

85  while  q  <  length(result)  &&  ~ strcmp (result (q) , ’ 

86  q  =  q  +  1 ; 


’) 


89 


87  end ; 

88  d£ix  =  str2double (strrep (result (j : q) , ’ 

89 

90  % - Call  listg - 

91  lin_com  =  strcat (listg , 32 , g6£ileName , 32 , ’ > ’  ,  32 , junk) ; 

92 

93  [status,  ~]  =  system(lin_coin)  ; 

94  if  status  "=  0 

95  AAout  =  strcat  (’ Error  £roin  listg  IQ  ,  result  ,  18)  ; 

96  disp (AAout); 

97  return; 

98  end; 

99 

100  % - Make  input  £ile  £or  dreadnaut  (permutations) - 

101  £perm  =  fopen(dreadInPerm ,  ’w’); 

102  fprintf (£perm ,strcat(’<’ ,32, junk , ’ \np\n?\nx\n ’ ) ) ; 

103  fclose (£perm) ; 

104 

105  % - Call  dreadnaut  (cycles) - 

106  1  in_com  =  strcat (dreadnaut , 32 , dreadInPerm) ; 

107 

108  [status,  AAout]  =  system(lin_com) ; 

109 

110  % - Get  rid  o£  ’Mode=dense’  in  nauty  output  so  it  can  be  read  by 

Margot - 

111  AAout  =  strrep (AAout ,’ Mode=dense  ’,’’); 

112 

113  if  status  Q 

114  AAout  =  strcat (’ Error  from  dreadnaut IQ , AAout  ,  IQ)  ; 

115  disp (AAout); 

116  return; 

117  end; 
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118 


119  % - Make  output  file  for  dreadnaut  (cycles) - 

120  fout  =  fopen(dreadOutPerm ,  ’w’); 

121  fprintf (fout , AAout) ; 

122  fclose (fout) ; 

123 

124  % - Remove  layers  (cycles) - 

125  GLPRemoveLayers (dfix ,  s'k,  dreadOutPerm ,  dreadOutLayer) ; 

126 

127  % - create  aa . naught . size  file - 

128  dreadOutLayer  =  strrep (dreadOutLayer ,  strcat (filePath ,’/’)>’’ ) 

129  fsize  =  fopen(aaSizefileName ,  ’w’); 

130  fprintf (fsize , strcat (dreadOutLayer , ’ \n ’ ,  num2str (s “k) , ’ \n ’ , ’ aa 

fileLabel , ’ .grp’ , ’\n’)) ; 

131  fclose (fsize) ; 

132 

133  % - Call  Margot  script - 

134  [~  ,  ~]  =  system(strcat ( ’ /scratch/0bj2/Margot/gen_group  <’,  ... 

32 , aaSizefileName)) ; 

135 

136  % - Copy  to  bidon.grp - 

137  [~ ,  ~]  =  system(strcat ( ’ rm ’  ,  32 , ’ bidon . grp  ’  ) )  ; 

138  [~  ,  ~]  =  system(strcat ( ’ cp  ’  , 32 , aagrp , 32 , ’ bidon . grp  ’  ) )  ; 

139 

140  end 

B.2  Code  For  Table  4.1  Column  4 

Appendix2/BF7  GLP.m 

1  function  BF7GLP (nautyFile ,  Hnosigneff,  N,  k,  s,  t  ) 

2 


91 


3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


AAout 


»  »  . 


%#ok<NASGU>  Set  the  output  to  an  empty  string 


(default) 

% - UNIX  command  line  passes  all  inputs  as  strings ,  convert  to  . .  . 

integers - 

if  ischar(N) 

N  =  str2double (N) ; 

end ; 

if  ischar(k) 

k  =  str2double (k) ; 

end ; 

if  ischar(s) 

s  =  str2double (s)  ; 

end ; 

if  ischar(t) 

t  =  str2double (t) ; 

end ; 


% - Determine  folder  containing  the  m  file 

[~ ,  filePath]  =  system (’ pwd ’) ; 
addpath(filePath) ; 

% - Set  intermediate  file  names - 

fileLabel  =  strcat (num2str (N) ,  ’ . ’ , num2str (k) ,  ’ . ’ , num2str (s) , 
num2str (t) ) ; 

aaSizef ileName  =  strcat (filePath ,  ’/aa’,  fileLabel,  naught . size ’) ; 

PfileName  =  strcat (filePath /P ’ ,  fileLabel txt ’) ; 
g6fileName  =  strcat (filePath /P ’ >  fileLabel g6 ’) ; 
dreadInPerm  =  strcat (filePath /aa ’ ,  fileLabel naut . inp ’) ; 
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32  dreadOutPerm  =  strcat (filePath , ’ /aa ’ ,  fileLabel , ’ . out ’ ) ; 

33  dreadOutLayer  =  strcat (filePath /aa ’ ,  fileLabel red . out ’) ; 

34  junk  =  strcat (filePath /junk ’ ,  f ileLabel , ’ . txt ’ ) ; 

35  aagrp  =  strcat (filePath /aa ’ ,  fileLabel grp ; 

36  myLP  =  strcat (filePath /OA  ’  ,  fileLabel mylp ; 

37 

38  % - Nauty  Linux  command  line  scripts - 

39  listg  =  strcat (nautyFile listg  -d’);  %  listg  executable 

40  dreadnaut  =  strcat (nautyFile dreadnaut  <’);  %  dreadnaut  executable 

41 

42  % - Generate  Rosenberg  constraint  matrix - 

43  [~,A,b]  =  Rosenberg (k , s , t , floor (N/s^t)) ; 

44  A  =  -1*  A; 

45  b  =  -1*  b; 

46  m  =  size  (A  ,  1)  ; 

47  n  =  size (A , 2) ; 

48  c  =  zeros (1 , n) ; 

49  eq  =  - l*ones (m , 1) ; 

50 

51  % - Modify  bidon.inp  file - 

52  bidoninp  =  strcat (filePath /bidon . inp ; 

53  newbidoninp  =  strcat (filePath /newbidon . inp ’) ; 

54  fb  =  fopen (bidoninp r ’)  ; 

55  tline  =  fgets(fb); 

56  if  ischar (tline) 

57  fn  =  fopen(newbidoninp , ’ w ’ ) ; 

58  fprintf (fn , tline) ; 

59  tline  =  fgets(fb); 

60  fprintf (fn , strcat (tline , ’ \n ’ , num2str (min( [n,N+l])) , ’\n’)) ; 

61  tline  =  fgets(fb);  %#ok<NASGU> 

62  tline  =  fgets(fb); 

63  fprintf (fn , tline) ; 
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64  fclose(fb); 

65  ["  ,  “]  =  systemCstrcat ( ’ mv ’  , 32 , newbidoninp , 32 , bidoninp) ) ; 

66  else 

67  fclose(fb): 

68  end ; 

69 

70  % - Build  the  mylp  file - 

71  BuildMylLPC  c,  A,  b,  eq,  1,  0,  myLP  ) 

72 

73  % - Matrix  representing  the  graph - 

74  %P  =  ILPAdj acencyMatrix (  A,  b,  c  ); 

75  P  =  [zerosCn)  A’;  A  zeros(m)]; 

76  %A  =  [-1*A,  eye(m)]: 

77  %P  =  A  *  pinvCA’*A)  *  A’; 

78  clear  A  b  c  eq; 

79 

80  % - Save  lower  half  of  P  as  a  vector  in  a  text  file - 

81  fp  =  fopenCPfileName , ’w’ ) ; 

82  p  =  num2strCP(l , 1)) ; 

83  fprintf (fp , p) ; 

84  for  i  =  2:  1 : (m+n) 

85  p  =  num2str (P (i , 1 : i)  , strcat ( ’%i ’  ,  32) )  ; 

86  while  length(p)  >  length(strrep(p ,  ’  ’)) 

87  p  =  strrepCp,  ’ 

88  end ; 

89  fprintf (fp , strcat (32 , p) ) ; 

90  end ; 

91 

92  fclose (fp) ; 

93  clear  P  p  i ; 

94 

95  % - Call  Hnosigneff - 


94 


96  lin_com  =  strcat (Hnosigneff , 32 , PfileName , 32 , gGfileName , 32 , 

97  num2str Cs'k)) ; 

98 

99  [status ,  result]  =  systemClin_com) ; 

100  if  status  0 

101  AAout  =  strcat (’ Error  from  Hnosigneff 1® , result  ,  IQ)  ; 

102  disp (AAout)  ; 

103  return; 

104  end ; 

105 

106  % - Load  value  for  dfix - 

107  j  =  1; 

108  while  j  <  (length(result) -1)  &&  ... 

109  ~ strcmp (result (j : (j  +  l)),’d=’) 

110  j  =  j  +  1; 

111  end; 

112  j  =  j  +2; 

113  q  =  j  ; 

114  while  q  <  length(result)  &&  ~ strcmp (result (q) , ’  ’) 

115  q  =  q  +  1 ; 

116  end; 

117  dfix  =  str2double (strrep (result (j : q)  ,  ’  ’,’’)); 

118 

119  % - Call  listg - 

120  lin_com  =  strcat (listg , 32 , gGfileName , 32 32 , junk) ; 

121 

122  [status  ,  "]  =  system(lin_com) ; 

123  if  status  0 

124  AAout  =  strcat (’ Error  from  listg 1® , result  ,  IQ)  ; 

125  disp (AAout); 

126  return; 

127  end ; 
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128 


129  % - Make  input  file  for  dreadnaut  (permutations) - 

130  fperm  =  fopenCdreadInPerm ,  ’w’); 

131  fprintf (fperm ,strcat(’<’ ,32, junk , ’ \np\n?\nx\n ’ ) ) ; 

132  fclose (fperm) ; 

133 

134  % - Call  dreadnaut  (cycles) - 

135  lin_com  =  strcat (dreadnaut , 32 , dreadInPerm) ; 

136 

137  [status  ,  AAout]  =  system(lin_com) ; 

138 

139  % - Get  rid  of  ’Mode=dense’  in  nauty  output  so  it  can  be  read  by 

Margot - 

140  AAout  =  strrep (AAout ,’ Mode=dense  ’,’’); 

141 

142  if  status  "=  0 

143  AAout  =  strcat (’ Error  from  dreadnaut 10 , AAout , 10)  ; 

144  disp (AAout); 

145  return; 

146  end ; 

147 

148  % - Make  output  file  for  dreadnaut  (permutations) - 

149  fout  =  fopen(dreadOutPerm ,  ’w’); 

150  fprintf (fout , AAout) ; 

151  fclose (fout) ; 

152 

153  % - Remove  layers  (cycles) - 

154  GLPRemoveLayers (dfix ,  s'k,  dreadOutPerm ,  dreadOutLayer) ; 

155 

156  % - create  aa . naught . size  file - 

157  dreadOutLayer  =  strrep (dreadOutLayer , strcat  (filePath  ,’/’)>’’)  ; 

158  fsize  =  fopen(aaSizefileName  ,  ’w’); 
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159  fprintf (f size , strcat CdreadOutLayer ,  ’ \n ’ , num2str (n) ,  ’\n’ 

’aa’ .fileLabel , ’ .grp’ , ’\n’)) ; 

160  fclose (fsize) ; 

161 


162  % - Call  Margot  script - 

163  [~ ,  ~]  =  system(strcat (  ’ /scratch/Obj2/Margot/gen_group  < 

aaSizefileName)) ; 


164 


165  % - Copy  to  bidon.grp - 

166  [~ ,  ~]  =  system(strcat ( ’ rm ’  ,  32 , ’ bidon . grp  ’  ) )  ; 

167  [~  ,  ~]  =  systemCstrcat ( ’ cp  ’  , 32 , aagrp , 32 , ’ bidon . grp  ’  ) )  ; 

168 


169  % - Copy  to  bidon. mylp - 

170  [~  ,  ~]  =  systemCstrcat (’ rm 32 bidon . mylp ’)) ; 

171  [~  ,  ~]  =  systemCstrcat  (’ cp 32  ,  myLP  ,  32  bidon  .  mylp ’))  ; 

172 

173  end 


32, 


B.3  Code  For  Table  4.3 


Appendix2/Obj  1  .m 

1  clear;  clc; 

2 

3  numDigit  =  10; 

4  QRnumDigit  =  9; 

5  mySMTP  =  ’ ms - af it -03 . afit . edu ’ ; 

6  myEmail  =  ’andrew.geyer@afit.edu’; 

7  setprefC’Internet’,’ SMTP_Server ’ , my SMTP) ; 

8  setprefC’Internet’,’ E_mail ’ , myEmail) ; 

9 

10  % - Determine  folder  containing  the  m  file 

11  filePath  =  mf ilename C ’ fullpath ’ ) ; 
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12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


filePath  =  filePathCl: (length(£ilePath) -length(mfilename (’’)))); 


% - Linux  command  line  script  for  Hnosigneff  executable -- 


Hnosigneff  =  strcat (filePath Hnosignef£2 ; 


% - Nauty  Linux  command  line  scripts -- 


%nautyFile  =  ’ /home/andrew/Documents/nauty2 5/ ’ ; 


%  Folder  . . . 


containing  nauty 


nautyFile  =  ’ /usr/local/nauty2 5/ ’  ; 


%  Folder  containing  nauty 


listg  =  strcat (nautyFile listg  -d’);  %  listg  executable 


dreadnaut  =  strcat (nautyFile dreadnaut  <’); 


%  dreadnaut  executable 


=  system(strcat ( ’mkdir ’ , 32 ,  filePath results ’)) ; 
addpath (strcat (filePath , ’results/’)); 

Linux_Command  =  strcat (filePath ,’ results/Linux_Command . txt ’) ; 
fcom  =  fopen(Linux_Command , ’ w ’ ) ; 

% - Make  subdirectories  for  files - 

=  system(strcat ( ’mkdir ’, 32 ,  filePath,  ’ results/Graph_Matrices ’ ) ) ; 
addpath (strcat (filePath, ’ results/Graph_Matrices ’ )) ; 

[~,~]  =  system(strcat ( ’mkdir ’, 32 ,  filePath,  ’ results/g6_Files  ’  )  )  ; 
addpath (strcat (filePath, ’ results/g6_Files ’ ) ) ; 

=  system(strcat ( ’mkdir ’, 32 ,  filePath,  ’ results/ Junk ’)) ; 
addpath (strcat (filePath , ’ results/ Junk ’ ) ) ; 

[~,~]  =  system(strcat ( ’mkdir ’, 32 ,  filePath,  ’ results/Dreadnaut_Input ’ ) ) ; 
addpath (strcat (filePath, ’ r e sul t s /Dr eadnaut_ Input ’ ) ) ; 

=  system(strcat ( ’mkdir ’, 32 ,  filePath,  ... 

’ r e suits /Dr eadnaut_Input/ Cycle ’ ) ) ; 
addpath (strcat (filePath, ’ r e sul ts/Dreadnaut_ Input /Cycle ’ ) ) ; 

[~,~]  =  system(strcat ( ’mkdir ’, 32 ,  filePath,  ... 

’ results/Dreadnaut_Output ’ ) ) ; 
addpath (strcat (filePath , ’ results/Dreadnaut_Output ’ ) ) ; 
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41  =  systemCstrcat ( ’mkdir ’ , 32 ,  filePath,  ... 

’ re suits /Dr eadnaut_Output /Cycle ’ ) ) ; 

42  addpath (s treat (filePath, ’ results/Dreadnaut_Out put /Cycle ’ ) ) ; 

43 

44  % - List  of  permutation  group  sizes - 

45  fsizes  =  fopen(strcat (filePath Group_Sizes . csv w ; 

46  fprintf (fsizes , streat (’ N , k , s , t ,  M  dfix,M  Group  Size,  rows  B,  columns 

B,’,  ’summation,  rank(reduced  B) ,  rank(full  B),p  diff\n’)); 

47 

48  %  bsol  file  names 

49  bsol  =  [’  bsol32  .  6 . 2 . 4  ’  ; 

50  ’  bsolSQ  .6.2 .4  ’  : 

51  ’  bsol64 .6.2 .4  ’  : 

52  ’bsolll2  .6.2 .4  ’  : 

53  ’  bsol64.7.2.4’ : 

54  ’  bsol24.7.2.3’ : 

55  ’  bsol96.7.2.4’ : 

56  ’  bsol64 .8.2 .4  ’  : 

57  ’  bsol24.8.2.3’ : 

58  ’  bsol32  .  7.2  .  3  ’  : 

59  ’  bsol24.9.2.3’ : 

60  ’  bsol32  .8.2  .  3  ’  ]  ; 

61 

62  numbsol  =  size (bsol  ,  1)  ; 

63 

64  for  i  =  l:l:numbsol 

65  %  Set  to  the  current  bsol  file  path  na 

66 

67 

68  inputFile  =  streat (filePath ,’ bsol/ ’, strtrim(bsol (i  ,:)))  ; 

69 

70  %  Find  number  of  factors 
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71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 


k  =str2num(strrep (strrep (strtrimCbsol (i , : ) ) ,  ’bsol’,’’),  ... 

’ . ’ ,char(32))) ;  %#ok<ST2NM> 

N  =  k(l) : 
s  =  k(3): 
t  =  k(4): 
k  =  k(2) : 

fileLabel  =  strcatC’N’,  num2str (N) , ’ k ’ ,  num2str (k) , ’ s ’ ,  ... 
num2str (s) , ’ t ’ ,  num2str(t)); 

PfileName  =  strcat (filePath ,  ’ results/Graph_Matrices/P ’ ,  ... 

fileLabel , ’ . txt  ’  ) ; 

g6fileName  =  strcat (filePath ,  ’ results/g6_Files/P ’ ,  ... 

fileLabel , ’ . g6  ’  ) ; 

dreadInCycle  =  strcat (filePath ,  ... 

’ results/Dreadnaut_Input/Cycle/aa ’ ,  fileLabel , ’ . naut . inp ’ ) 
dreadOutCycle  =  strcat (filePath ,  ... 

’ results/Dreadnaut_Output/Cycle/aa ’ ,  fileLabel , ’ . out ’ ) ; 
junk  =  strcat (filePath ,  ’ results/ Junk/ junk ’ ,  fileLabel); 

%  Read  in  M  file 

[P , rowB , colB , rankB]  =  inputMP (inputFile ,  k,  s,t,  QRnumDigit) ; 

% - Save  lower  half  of  P  as  a  vector  in  a  text  file - 

p  =  zeros (1 , sum(l : size (P  ,  1) ))  ; 
for  j  =  1:1:  size (P  ,  1) 

p(l , (sum(l : ( j -1) )+l) : (sum(l : (j -l))+j))  =  P(j,l:j): 

end ; 

clear  P; 

fp  =  fopen(PfileName , ’ w ’ ) ; 

fprintf(fp , strcat (’%.’ ,  num2str (numDigit) ,  ’f’,  32), p); 

fclose (fp) ; 
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98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 


p_entries  =  sort (unique (round(p  .*  (10“numDigit))  ./  ... 
(lQ"numDigit))) ; 

p_dif£  =  p_entries (1 , 2)  -  p_entries (1 , 1) ; 
for  j  =  3 : 1 :max(size(p_entries)) 

if  p_entries (1 ,  j  )  -  p_entries (1 , j -1)  <  p_diff 
p_dif£  =  p_entries (1 , j )  -  p_entries (1 , j -1) ; 

end ; 

end ; 

clear  p  j  p_entries; 

% - Call  Hnosigneff - 

lin_com  =  strcat (Hnosigneff ,  32,  PfileName ,  32,  g6£ileName ,  32, 
num2str (rowB) )  ; 

fprintf (fcom , strcat (lin_com  ,  ’  \n  ’  ) )  ; 

[status  ,  result]  =  system(lin_com) ; 
if  status  ~=  8 

disp (strcat (’ Error  from  Hnosigneff2 : ’ ,  18,  result,  18)); 
sendmail (myEmail , fileLabel ,  ’Error  from  Hnosigneff 2 .’ ) 
fprintf (fsizes , ’ \n ’ ) ; 

break ; 

end ; 

% - Load  value  for  dfix - 

j  =  1; 

while  j  <  (length (result) - 1)  &&  ... 

“ strcmp (result (j  :  (j  +  l)),’d=’) 

j  =  j  +  1; 

end ; 

j  =  j  +2; 
q  =  j ; 
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127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 


while  q  <  lengthCresult)  &&  ~ strcmp (result (q) , char (32) ) 
q  =  q  +  1; 

end ; 

dfix  =  str2double (strrep (result (j : q) , 

% - Call  listg - 

lin_com  =  strcat (listg ,  32,  g6fileName ,  32,  ’>’  ,32,  junk); 

fprintf (£com , strcat (lin_com , ’ \n ’ ) ) ; 

[status  ,  ~]  =  system(lin_com) ; 
if  status  ~=  0 

disp(strcat (’ Error  from  listg:’,  10,  result,  10)); 
sendmail (myEmail , fileLabel ,  ’Error  from  listg.’) 
fprintf (fsizes , ’ \n ’ ) ; 

break ; 

end ; 

% - Make  input  file  for  dreadnaut  (cycles) - 

fcyc  =  fopen(dreadInCycle ,  ’w’); 

fprintf (fcyc , strcat (’<’ ,  32,  junk,  ’ \n?\nx\n ’ ) ) ; 

fclose (fcyc) ; 

% - Call  dreadnaut  (cycles) - 

lin_com  =  strcat (dreadnaut ,  32,  dreadInCycle ,  32,  ’>’,  32,  ... 

dreadOutCycle) ; 

fprintf (fcom , strcat (lin_com , ’ \n ’ ) ) ; 

[status ,  result]  =  system(lin_com) ; 

if  status  ~=  0 

disp ( strcat (’ Error  from  dreadnaut:’,  10,  result,  10)); 
sendmail (myEmail , fileLabel ,  ’Error  from  dreadnaut.’) 
fprintf (fsizes , ’ \n ’ ) ; 
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158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 


break ; 


end ; 

fread  =  fopen(dreadOutCycle)  ; 
result  =  fgets (fread) ; 
while  ischar (result) 

if  length(strrep(result ,  ’ grpsize= ’ , ’ ’ ) )  <  length(result) 

break ; 

end ; 

result  =  fgets (fread) ; 

end ; 

fclose (fread) ; 

% - find  the  group  size  in  the  dreadnaut  result - 

j  =  length(result) -8 : 

while  j  >  1  &&  ~ strcmp (result (j : (j +7) ) ,  ’grpsize=’) 

j  =  j  -  1; 

end ; 

i  f  j  <  1 

disp(’Unable  to  find  group  size  in  dreadnaut  output.’); 
sendmail (myEmail , fileLabel ,  ’Unable  to  find  group  size  in  ... 
dreadnaut  output.’); 

break ; 

end ; 

j  =  j  +  8; 

q  =  j ; 

while  q  <  length(result) -1  &&  ~ strcmp (’;’, result (q+1) ) 
q  =  q  +  1; 

end ; 

ksum  =  Q; 
for  z=t+l : 1 : k 

ksum  =  ksum+(s-l) "z  *  nchoosek (k , z) ; 
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189 


end ; 

190 

191  B  =  inputM (inputFile , N , k , s) ; 

192 

193  fprintf Cfsizes ,  strcat (num2str (N) ,  num2str(k),  ... 

num2strCs) ,  ’ , ’ ,  num2str(t) ,  ’ , ’ ,  num2str (df ix) , ’ , ’ ,  ... 
num2str (result (j :q)) , ’ , ’ ,  num2str (rowB) , ’ , ’ ,  num2str (colB) , 
’ , ’ ,  num2str (ksum) ,  ’ , ’ ,  num2str (rankB) ,  ’ , ’ ,  ... 
nuin2strCrank(B))  ,  num2str  (p_diff )  ,  ’ \n  ’  )  )  ; 

194 

195  sendmail (myEmail ,  fileLabel ,  ’Another  case  is  done.’,  ... 

strcat (f ilePath ,  ’ Group_Sizes . csv ’ ) ) ; 

196 

197  end ; 


Appendix2/inputM  .m 

1  function  [  M  ]  =  inputM(  fileName , N , k , s) 

2  %  Reads  the  bsol  file  to  get  the  M  matrix 

3  %  fileName  is  the  path  to  the  M  matrix  file 

4  %  k  is  the  number  of  factors 

5 

6  fin  =  fopenCfileName) ; 

7  tline  =  fgetl(fin); 

8  mine  =  []  ; 

9  M  =  []  : 

10 

11  while  ischar (tline) 

12  mine  =  [Mline  str2num(tline)  ]  ;  %#ok<ST2NM> 

13  Msize  =  max(size(Mline)) ; 

14  if  Msize  >=  s“k 

15  newMline  =  [] ; 

16  if  Msize  >  s“k 
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17 


newMline  =  Mline (1 , s“k+l : Msize) ; 


18 


mine  =  MlineCl ,  1:  s'k)  ; 


19 


end ; 


20 


M  =  [M  (mine  -  N/s"k)’];  %  N  =  sumCMline) /s ' t 


21 


mine  =  newMline; 


22  end ; 


23  tline  =  fgetl(£in); 


24  end ; 

25 

26  fclose (fin) ; 

27 

28  end 


Appendix2/inputMP.m 


1  function  [  P,  m,  n,  rankB  ]  =  inputMP(  fileName  ,k.s,t,  numDigit) 

2  %  Reads  the  bsol  file  to  get  the  M  matrix 

3  %  fileName  is  the  path  to  the  M  matrix  file 

4  %  k  is  the  number  of  factors 

5 

6  vecStep  =  1®0; 

7  fin  =  fopen(fileName) ; 

8  tline  =  fgetl(fin); 

9  Mline  =  []  ; 

10  B  =  [] ; 

11  numVec  =  0; 

12 

13  while  ischar (tline) 

14  Mline  =  [Mline  str2num(tline) ] ;  %#ok<ST2NM> 

15  Msize  =  max(size(Mline)) ; 

16  if  Msize  >=  s“k 

17  newMline  =  [] ; 

18  if  Msize  >  s“k 
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19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45  end 

46 


newMline  =  Mline (1 , s“k+l : Msize) ; 
mine  =  MlineCl ,  1:  s'k)  ; 

end ; 

B  =  [B  (mine  -  sum(mine)/s''k)  ’  ]  ;  %  N 

mine  =  newMline; 
numVec  =  numVec  +  1; 

end ; 

tline  =  fgetl(£in); 

if  numVec  ==  vecStep  ||  ~ ischar (tline) 
i  =  1; 

[q , r]  =  qr(B) ; 

rind  =  [] : 

for  j  =  l:size(r,2) 

if(abs(r(i,j))  >1Q''( - l*numDigit) ) 
rind  =  [rind  r(:,j)]; 
i  =  i  +  1 ; 

end ; 

if(i  >  size(r,l)) 
break ; 

end ; 

end ; 

clear  r; 

B=q*rlnd;  %here ’ s  your  answer 
clear  q  rind; 
numVec  =  Q; 

end ; 


47  fclose (fin) ; 

48 

49  [m  n]  =  size (B)  ; 

50 


=  sum(Mline)/s“t 
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51  ranks  =  rank(B)  ; 

52 

53  P  =  B*pinvCB ’ *B)*B  ’  ; 

54 

55  clear  B; 

56 

57  end 

B.4  Code  to  Compute 

Appendix2/HYBRID5for6GLP.m 

1  function  HYBRID5£or6GLP (nautyFile ,  Hnosigneff,  Afile ,  ClassConst ,  k 

s ,  t  ) 

2 

3  AAout  =  ’ ’ ;  %#ok<NASGU>  Set  the  output  to  an  empty  string  . 

(default) 

4 

5  numDigit  =12;  %  Number  of  digits  for  . 

precision 

6 

7  % - UNIX  command  line  passes  all  inputs  as  strings ,  convert  to  ... 

integers - 

8  if  ischar(k) 

9  k  =  str2double (k) ; 

10  end ; 

11 

12  if  ischar(s) 

13  s  =  str2double  (s)  ; 

14  end ; 

15 

16  if  ischar(t) 

17  t  =  str2double (t)  ; 
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18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 


end ; 


% - Determine  folder  containing  the  m  file 

[~ ,  filePath]  =  system (’ pwd ; 
addpath(filePath) ; 

% - Set  intermediate  file  names - 

fileLabel  =  strcat (num2str (k- 1) , ’ . ’ , num2str (s) , ’ . 
aaSizef ileName  =  strcat (filePath /aa ’ ,  fileLabel 
PfileName  =  strcat (filePath /P ’ ,  fileLabel txt 
g6fileName  =  strcat (filePath /P ’> fileLabel g6 ’ 
dreadInPerm  =  strcat (filePath /aa ’ ,  fileLabel,  ’ 
dreadOutPerm  =  strcat (filePath /aa ’ ,  fileLabel,’ 
dreadOutLayer  =  strcat (filePath ,’ /aa ’ ,  fileLabel, 
junk  =  strcat (filePath ,’ /junk ’ ,  f ileLabel , ’ . txt ’ ) 
aagrp  =  strcat (filePath ,’ /aa ’ ,  fileLabel grp ; 

% - Nauty  Linux  command  line  scripts - 

listg  =  strcat (nautyFile ,’ listg  -d’); 
dreadnaut  =  strcat (nautyFile ,’ dreadnaut  <’); 

% - Read  in  the  constraint  matrix - 

A  =  []; 

fAA  =  fopen(strcat (filePath ,’/’, Afile) ,  ’r’); 
tline  =  fgets(fAA); 
while  ischar (tline) 

a  =  zeros (1 , s " (k- 1) )  ; 
ind  =  str2num(tline) ;  %#ok<ST2NM> 
ind  =  ind (2 : size (ind , 2) ) +1 ; 
a(ind)  =  1; 

A  =  [A; a];  %#ok<AGR0W> 
tline  =  fgets(fAA); 
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’ ,  num2str (t) ) ; 

’ . naught . size ’ ) ; 
’)  ; 
j 

naut . inp ’ ) ; 
out  ’ )  : 

’ . red . out  ’  )  ; 


%  listg  executable 
%  dreadnaut  executable 


50  end ; 

51 

52  %dlmwrite (s treat (pwd ,’/Atest.txt’),A): 

53 

54  % - Projection  matrix  using  Moore  Penrose  pseudoinverse - 

55  P  =  A’  *  pinv(A*A’)  *  A; 

56  clear  A; 

57 

58  % - Save  lower  half  of  P  as  a  vector  in  a  text  file - 

59  p  =  zeros (1 , sum(l : size (P  ,  1) ))  ; 

60  for  n  =  1 : 1 :  size  (P  ,  1) 

61  p (1 , (sumCl : (n- 1) ) +1) : (sum(l ; (n- 1) )+n) )  =  PCn,l:n); 

62  end ; 

63  for  n  =  1 : 1 :  size  (p  ,  2) 

64  if  absCp(l,n))  <=  18“ (-l*numDigit) 

65  p(l,n)  =  8; 

66  end ; 

67  end ; 

68  clear  P; 

69 

70  fp  =  fopenCPfileName , ’ w ’ ) : 

71  fprintf (fp ,strcat(’%. ’ , num2str (numDigit) , ’f’  ,32)  ,p)  ; 

72  fclose(fp) ; 

73 

74  clear  p  n  j ; 

75 

76  % - Call  Hnosigneff - 

77  lin_com  =  streat (Hnosigneff ,  32,  PfileName ,  32,  g6fileName ,  32, 

num2str (s “ (k- 1) ) ,  32,  num2str (18“ -6) ) ; 

78 

79  [status,  result]  =  system(lin_com) ; 

80  if  status  8 
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81  AAout  =  strcat (’ Error  from  Hnosigneff : ’ ,  10,  result,  10); 

82  disp (AAout) ; 

83  return; 

84  end ; 

85 

86  % - Load  value  for  dfix - 

87  j  =  1; 

88  while  j  <  (length(result) -1)  &&  ~ strcmp (result (j : (j  +  l)),’d=’) 

89  j  =  j  +  1; 

90  end ; 

91  j  =  j  +  2 ; 

92  q  =  j  ; 

93  while  q  <  length(result)  &&  ~ strcmp (result (q) , ’  ’) 

94  q  =  q  +  1 ; 

95  end ; 

96  dfix  =  str2double (strrep (result (j : q)  ,  ’  ’,  ’’)); 

97 

98  % - Call  listg - 

99  lin_com  =  strcat (listg , 32 ,  g6fileName ,  32,  ’>’,  32,  junk); 

100 

101  [status,  ~]  =  system(lin_com) ; 

102  if  status  "=  0 

103  AAout  =  strcat (’ Error  from  listg:’,  10,  result,  10); 

104  disp (AAout); 

105  return; 

106  end ; 

107 

108  % - Add  color  to  the  graph  using  the  ClassConst  file - 

109  fcolor  =  ’f=[’ ; 

110  fclass  =  fopen(strcat (filePath ,  ’/’,  ClassConst),  ’r’); 

111  tl  ine  =  fgets (fclass) ; 

112  while  ischar (tline) 


no 


113 


a 


str2num(tline) ;  %#ok<ST2NM> 


114  if  max(size(a))  >  1 


115 


asize  =  max (size (a) ) ; 


116 


for  i=2 : 1 : asize 


117 


for  j  =  Ca(i)  *  dfix) : 1 : ((a(i)  +  1)  *  dfix  -  1) 


118 


fcolor  =  strcat (fcolor ,  num2str(j) , 


119 


end ; 


120 


end ; 


121 


fcolor  =  strcat (fcolor (1 : length(fcolor)  -1),  ’I’); 


122  end ; 


123  tline  =  fgets (fclass) ; 


124  end ; 

125 

126  fclose (fclass) ; 

127 

128  fcolor  =  strrep(strcat (fcolor (1 : length(fcolor)  -  1),’]’),  ’I’,  ’  I 

129 

130  % - Make  input  file  for  dreadnaut  (permutations) - 

131  fperm  =  fopen(dreadInPerm ,  ’w’); 

132  fprintf (fperm ,  strcat (’<’,  32,  junk,  ’\n’,  fcolor,  ’ \np\n?\nx\n ’ ) ) 

133  fclose (fperm) ; 

134 

135  % - Call  dreadnaut  (permutations) - 

136  lin_com  =  strcat (dreadnaut ,  32,  dreadInPerm) ; 

137 

138  [status,  AAout]  =  system(lin_com) ; 

139 

140  % - Get  rid  of  ’Mode=dense’  in  nauty  output  so  it  can  be  read  by  . 

Margot - 

141  AAout  =  strrep (AAout ,  ’Mode=dense  ’,  ’’); 

142 

143  if  status  0 


111 


144  AAout  =  strcat (’ Error  from  dreadnaut : ’ ,  10,  AAout ,  10); 

145  disp (AAout); 

146  return; 

147  end ; 

148 

149  % - Make  output  file  for  dreadnaut  (permutations) - 

150  font  =  fopen(dreadOutPerm ,  ’w’); 

151  fprintf (font , AAout) ; 

152  fclose (fout) ; 

153 

154  % - Remove  layers  (cycles) - 

155  GLPRemoveLayers (dfix ,  s“(k-l),  dreadOutPerm ,  dreadOutLayer) ; 

156 

157  % - create  aa . naught . size  file - 

158 

159  faaout  =  fopen(strcat (filePath ,  ’ /new . aa . naught . size ’) ,  ’r’); 

160  tline  =  fgets (faaout) ; 

161  tline  =  fgets (faaout) ; 

162  dreadOutLayer  =  strrep (dreadOutLayer ,  strcat (filePath ,’/’) >  ’ 

163  fsize  =  fopen(aaSizefileName ,  ’w’); 

164  fprintf (fsize , strcat (dreadOutLayer ,  ’\n’,  tline,  ’\n’,  ’ aa ’ , 

fileLabel,  ’.grp’,  ’\n’)); 

165  fclose (fsize)  ; 

166 

167  % - Call  Margot  script - 

168  [~ ,  ~]  =  system(strcat ( ’ /scratch/0bj2/Margot/gen_group  <’,  32 

aaSizefileName) ) ; 

169 

170  % - Copy  to  bidon.grp - 

171  [~ ,  ~]  =  system(strcat ( ’ rm ’  ,  32 ,  ’bidon.grp’)); 

172  [~ ,  ~]  =  system(strcat ( ’ cp ’  ,  32 ,  aagrp ,  32,  ’bidon.grp’)); 


173 
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174  end 


B.5  Code  to  Compute 

all\ 

Appendix2/HYBRID5for6GLPconst.m 

1  function  HYBRID5for6GLPconst (nautyFile ,  Hnosigneff,  Afile ,  ... 

ClassConst  ,  k,  s,  t  ) 

2 

3  % - This  function  calculates  the  GLP  group  directly  from  the  . . . 

constraints  in  the  bidon.mylp  file. 

4 

5  AAout  =  ’ ’ ;  %#ok<NASGU>  Set  the  output  to  an  empty  string 

(default) 

6 

7  numDigit  =12;  %  Number  of  digits  for 

precision 

8 

9  % - UNIX  command  line  passes  all  inputs  as  strings ,  convert  to  . .  . 

integers - 

10  if  ischar(k) 

11  k  =  str2double (k) ; 

12  end ; 

13 

14  if  ischar(s) 

15  s  =  str2double  (s)  ; 

16  end ; 

17 

18  if  ischar(t) 

19  t  =  str2double (t)  ; 

20  end ; 

21 

22  % - Determine  folder  containing  the  m  file 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


[~ ,  filePath]  =  system (’ pwd ; 
addpath(filePath) ; 

% - Set  intermediate  file  names - 

fileLabel  =  strcat (num2str (k  -  1),  num2str(s) ,  num2strCt)): 

aaSizef ileName  =  strcat (filePath ,  ’/aa’,  fileLabel,  naught . size ’) ; 

PfileName  =  strcat (filePath /P ’ ,  fileLabel,  ’ . txt ’ ) ; 
g6fileName  =  strcat (filePath ,’ /P ’ >  fileLabel,  ’.g6’); 
dreadInPerm  =  strcat (filePath ,’ /aa ’ ,  fileLabel,  ’ . naut . inp ’ ) ; 
dreadOutPerm  =  strcat (filePath ,’ /aa ’ ,  fileLabel,  ’.out’); 
dreadOutLayer  =  strcat (filePath ,’ /aa ’ ,  fileLabel,  ’.red. out’); 
junk  =  strcat (filePath ,’ /junk ’ ,  fileLabel,  ’ . txt ’ ) ; 
aagrp  =  strcat (filePath ,’ /aa ’ ,  fileLabel,  ’.grp’); 

% - Nauty  Linux  command  line  scripts - 

listg  =  strcat (nautyFile ,  ’listg  -d’);  %  listg  executable 

dreadnaut  =  strcat (nautyFile ,  ’dreadnaut  <’);  %  dreadnaut  ... 

executable 

% - Read  in  the  constraint  matrix - 

A  =  []; 

fAA  =  fopen(strcat (filePath ,  ’/’,  Afile) ,  ’r’); 

tline  =  fgets(fAA);  %#ok<NASGU> 

count  =  str2num(fgets (fAA) ) ;  %#ok<ST2NM> 

nvars  =  count (1) ; 

tline  =  fgets(fAA);  %#ok<NASGU> 

tline  =  fgets(fAA);  %#ok<NASGU> 

tline  =  fgets(fAA); 

while  ischar (tline) 

a  =  zeros  (1,  nvars); 

ind  =  str2num(tline) ;  %#ok<ST2NM> 
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54 


ind  =  ind (2 : size (ind ,  2))  +  1; 

55  a(ind)  =  1; 

56  A  =  [A;a];  %#ok<AGROW> 

57  tline  =  fgets(£AA);  %#ok<NASGU> 

58  tline  =  fgets(£AA); 

59  end ; 

60 

61  %  dlmwrite ( ’ Atest . txt  ’  ,  A); 

62 

63  % - Projection  matrix  using  Moore  Penrose  pseudoinverse - 

64  P  =  A’  *  pinvCA  *  A’)  *  A; 

65  clear  A; 

66 

67  % - Save  lower  half  of  P  as  a  vector  in  a  text  file - 

68  p  =  zeros (1 , sum(l : size (P ,  1))); 

69  for  n  =  1 : 1 :  size  (P  ,  1) 

70  p(l,  Csum(l:(n  -  1))  +  l):(sum(l:(n  -  1))  +  n))  =  P(n,  l:n) 

71  end; 

72  for  n  =  1 : 1 :  size  (p  ,  2) 

73  if  absCpCl,  n))  <=  lO'C-l  *  numDigit) 

74  P(l,n)  =  ®: 

75  end ; 

76  end ; 

77  clear  P; 

78 

79  fp  =  fopenCPfileName ,  ’w’); 

80  fprintf (£p , strcat ( ’ ,  num2strCnumDigit) ,  ’f’,  32),  p) ; 

81  fclose (fp) ; 

82 

83  clear  p  n  j ; 

84 

85  % - Call  Hnosigneff - 
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86  lin_com  =  strcat (Hnosigneff ,  32,  PfileName ,  32,  g6£ileName ,  32, 

num2str (nvars) ,  32,  num2str (10“ -6) ) ; 

87 

88  [status ,  result]  =  systemClin_com) ; 

89  if  status  0 

90  AAout  =  strcat (’ Error  from  Hnosigneff:’,  10,  result  ,  10)  ; 

91  disp (AAout) ; 

92  return; 

93  end ; 

94 

95  % - Load  value  for  dfix - 

96  j  =  1; 

97  while  j  <  (length(result)  -  1)  &&  ~ strcmp (result (j : (j  +  1)),  ’d 

98  j  =  j  +  1; 

99  end ; 

100  j  =  j  +  2 ; 

101  q  =  j  : 

102  while  q  <  length(result)  &&  ~ strcmp (result (q) ,  ’  ’) 

103  q  =  q  +  1 ; 

104  end ; 

105  dfix  =  str2double (strrep (result (j : q)  ,  ’  ’,  ’’)); 

106 

107  % - Call  listg - 

108  lin_com  =  strcat (listg ,  32,  g6£ileName ,  32,  ’>’,  32,  junk); 

109 

110  [status,  ~]  =  system(lin_com) ; 

111  if  status  0 

112  AAout  =  strcat (’ Error  from  listg:’,  10,  result,  10); 

113  disp (AAout); 

114  return; 

115  end; 

116 


116 


117  % - Add  color  to  the  graph  using  the  ClassConst  file - 


118 

fcolor  =  ’f=[’ : 

119 

fclass  =  fopen(strcat (filePath ,  ’/’>  ClassConst), 

’r’)  ; 

120 

tline  =  fgets (fclass) ; 

121 

while  ischar (tline) 

122 

a  =  str2num(tline) ;  %#ok<ST2NM> 

123 

if  max(size(a))  >  1 

124 

asize  =  max (size (a) ) ; 

125 

for  i=2 : 1 : asize 

126 

for  j  =  (a(i)  *  dfix) : 1 : ((a(i)  +  1)  * 

dfix  -  1) 

127 

fcolor  =  strcat (fcolor ,  num2str(j) 

,  ’,’): 

128 

end ; 

129 

end ; 

130 

fcolor  =  strcat (fcolor (1 : length(fcolor)  - 

1),  ’  1  ’); 

131 

end ; 

132 

tline  =  fgets (fclass) : 

133 

end ; 

134 

135 

fclose (fclass) ; 

136 

137  fcolor  =  strrep (strcat (fcolor (1 : length(fcolor )  -1),  ’I’,  ’  I 

138 

139  % - Make  input  file  for  dreadnaut  (permutations) - 

140  fperm  =  fopen(dreadInPerm ,  ’w’); 

141  fprintf (fperm , strcat (’<’ ,  32,  junk,  ’\n’,  fcolor,  ’ \np\n?\nx\n ’ ) ) ; 

142  fclose (fperm) ; 

143 

144  % - Call  dreadnaut  (cycles) - 

145  lin_com  =  strcat (dreadnaut ,  32,  dreadInPerm) ; 

146 

147  [status,  AAout]  =  system(lin_com) ; 

148 
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149  % - Get  rid  of  ’Mode=dense’  in  nauty  output  so  it  can  be  read  by 

Margot - 

150  AAout  =  strrep (AAout ,  ’Mode=dense 

151 

152  if  status  0 

153  AAout  =  strcat (’ Error  from  dreadnaut : ’ ,  10,  AAout,  10); 

154  disp (AAout); 

155  return; 

156  end ; 

157 

158  % - Make  output  file  for  dreadnaut  (cycles) - 

159  fout  =  fopen(dreadOutPerm ,  ’w’); 

160  fprintf (fout , AAout) ; 

161  fclose (fout) ; 

162 

163  % - Remove  layers  (cycles) - 

164  GLPRemoveLayers (dfix ,  nvars ,  dreadOutPerm ,  dreadOutLayer) ; 

165 

166  % - create  aa . naught . size  file - 

167 

168  faaout  =  fopen( ’ new . aa . naught . size r+ ’)  ; 

169  tline  =  fgets (faaout) ;  %#ok<NASGU> 

170  tline  =  fgets (faaout) ; 

171  dreadOutLayer  =  strrep (dreadOutLayer ,  strcat (filePath ,’/’) >  ’’); 

172  fsize  =  fopen(aaSizefileName ,  ’w’); 

173  fprintf (fsize , strcat (dreadOutLayer ,  ’\n’,  tline,  ’\n’,  ’ aa ’ ,  ... 

fileLabel  ,  ’ . grp ’ , ’ \n ’ ) ) ; 

174  fclose (fsize) ; 

175 

176  % - Call  Margot  script - 

177  [~ ,  ~]  =  system(strcat ( ’ /scratch/0bj2/Margot/gen_group  <’,  32,  .. 

aaSizefileName) ) ; 
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178 


179  %-- 

--Copy 

to  bidon.grp - 

180  [~, 

~]  = 

systemCstrcat ( ’ rm ’ , 

32, 

’bidon.grp’)) ; 

181  [~, 

~]  = 

system(strcat ( ’ cp ’ , 

32, 

aagrp ,  32,  ’bidon.grp’)) 

182 

183  end 

B.6  Code  For  Table  4.2 


Appendix2/DoubleCosetTest.m 


1  clear;  clc; 

2 


3  ProbList  = 

{’Coak6s2t21am5.1p.gz’ 

4 

’Rosk6s2t21am5.1p.gz’ 

5 

’Coak7s2t21am5.1p.gz’ 

6 

’Rosk7s2t21am5.1p.gz’ 

7 

’ Coak8s2t21am5 . Ip . gz  ’ 

8 

’Rosk8s2t21am5.1p.gz’ 

9 

’Coak9s2t21am5.1p.gz’ 

10 

’Rosk9s2t21am5.1p.gz’ 

11 

’CoaklQs2t21am5 .Ip.gz 

12 

’RosklQs2t21am5 .Ip.gz 

13 

’Co ak5s2t21am6. Ip.gz’ 

14 

’Rosk5s2t21am6. Ip.gz’ 

15 

’ Coak6s2t21am6  .Ip.gz’ 

16 

’Rosk6s2t21am6. Ip.gz’ 

17 

’Co ak7s2t21am6. Ip.gz’ 

18 

’Rosk7s2t21am6. Ip.gz’ 

19 

’ Coak8s2t21am6  .Ip.gz’ 

20 

’Rosk8s2t21am6. Ip.gz’ 

21 

’ Coak9s2t21am6  .Ip.gz’ 

22 

’Rosk9s2t21am6. Ip.gz’ 
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23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


’Coakl0s2t21am6.1p.gz 
’RosklQs2t21am6.1p.gz 
’Coaklls2t21am6.1p.gz 
’Rosklls2t21am6.1p.gz 
’Coak5s2t31am3.1p.gz’ 
’Rosk5s2t31am3.1p.gz’ 
’ Coak6s2t31am3 . Ip . gz ’ 
’Rosk6s2t31am3.1p.gz’ 
’Coak7s2t31am3.1p.gz’ 
’Rosk7s2t31am3.1p.gz’ 
’ Coak8s2t31am3 . Ip . gz ’ 
’Rosk8s2t31am3.1p.gz’ 
’ Coak9s2t31am3 . Ip . gz ’ 
’Rosk9s2t31am3.1p.gz’ 
’CoaklOs2t31am3 .Ip.gz 
’RosklQs2t31am3 .Ip.gz 
’Coaklls2t31am3 .Ip.gz 
’Rosklls2t31am3 .Ip.gz 
’ Coak6s2t31am4 .Ip.gz’ 
’ Rosk6s2t31am4 .Ip.gz’ 
’ Coak7s2t31am4 .Ip.gz’ 
’ Rosk7s2t31am4 .Ip.gz’ 
’ Coak8s2t31am4 .Ip.gz’ 
’ Rosk8s2t31am4 .Ip.gz’ 
’ Coak9s2t31am4 .Ip.gz’ 
’ Rosk9s2t31am4 .Ip.gz’ 
’ Coakl0s2t31am4 .Ip.gz 
’ Roskl0s2t31am4 .Ip.gz 
’ Coakl Is2t31am4 .Ip.gz 
’ Roskl Is2t31am4 .Ip.gz 
’ Coak6s2t31am5 .Ip.gz’ 
’Rosk6s2t31am5.1p.gz’ 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 


’Coak7s2t31am5.1p.gz’ ; 
’Rosk7s2t31am5.1p.gz’  ; 

’ Coak8s2t31am5 . Ip . gz ’ ; 
’Rosk8s2t31am5.1p.gz’  ; 
’Coak9s2t31am5.1p.gz’ ; 
’Rosk9s2t31am5.1p.gz’  ; 
’CoaklQs2t31am5.1p.gz’ ; 
’RosklQs2t31am5.1p.gz’  ; 
’ Coak6s2t31am6 . Ip . gz ’ ; 
’Rosk6s2t31am6.1p.gz’ ; 
’Coak7s2t31am6.1p.gz’ ; 
’Rosk7s2t31am6.1p.gz’ ; 

’ Coak8s2t31am6 . Ip . gz ’ ; 
’Rosk8s2t31am6.1p.gz’ ; 
’Coak5s3t31am2.1p.gz’ ; 
’Rosk5s3t31am2.1p.gz’  ; 

’ Coak6s3t31am2 . Ip . gz ’ ; 
’Rosk6s3t31am2.1p.gz’  ; 

’ Coak6s2t31am7 . Ip . gz ’ ; 
’Rosk6s2t31am7.1p.gz’  ; 
’Coak7s2t31am7.1p.gz’ ; 
’Rosk7s2t31am7.1p.gz’  ; 

’ Coak7s2t41am4 . Ip . gz ’  ; 

’ Rosk7s2t41am4 . Ip . gz ’ ; 

’ Coak8s2t41am4 . Ip . gz ’  ; 

’ Rosk8s2t41am4 . Ip . gz ’  ; 

’ Coak6s2t41am5 . Ip . gz ’ ; 
’Rosk6s2t41am5.1p.gz’  ; 

’ Coak7s2t41am5 . Ip . gz ’  ; 
’Rosk7s2t41am5.1p.gz’  ; 
’Coak5s3t41aml.lp.gz’  ; 
’Rosk5s3t41aml.lp.gz’ ; 
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87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 


’ Coak7s2t41am6 . Ip . gz ’ 
’Rosk7s2t41am6.1p.gz’ 
’ Coak8s2t41am6 . Ip . gz ’ 
’Rosk8s2t41am6.1p.gz’ 
’ Coak6s2t41am7 . Ip . gz ’ 
’Rosk6s2t41am7.1p.gz’ 
’ Coak7s2t41am7 . Ip . gz ’ 
’Rosk7s2t41am7.1p.gz’ 
’ Coak8s2t41am9 . Ip . gz ’ 
’ Rosk8s2t41am9 . Ip . gz ’ 
’ Coak9s2t41am9 . Ip . gz ’ 
’ Rosk9s2t41am9 . Ip . gz ’ 
’ Coak6s3t41am2 . Ip . gz ’ 
’Rosk6s3t41am2.1p.gz’ 
’ Seymour . gz  ’  ; 

’ mzzv42z . gz  ’  ; 

’ airQ3 . gz  ’  ; 

’ arkiOOl . gz  ’  ; 

’ blend2 . gz  ’  ; 

’ enigma . gz  ’  ; 

’ fiber . gz ’ ; 

’gen.gz’  ; 

’ glass4 . gz  ’  ; 

’ mas74 . gz  ’  ; 

’ mas76 . gz  ’  ; 

’ misc03 . gz  ’  ; 

’ miscOG . gz ’ ; 

’ misc07 . gz  ’  ; 

’ mitre . gz  ’  ; 

’ mkc . gz  ’  ; 

’ mzzvl 1 . gz ’ ; 

’ noswot . gz  ’  ; 
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’ optl2 17 . gz  ’  ; 

120  ’plS2Ql.gz’; 

121  ’p2756.gz’; 

122  ’ protfold . gz ’ ; 

123  ’ qiu . gz  ’  ; 

124  ’rgn.gz’; 

125  ’ rout . gz  ’  ; 

126  ’ stein27 . gz  ’  ; 

127  ’ swath . gz  ’  ; 

128  ’ timtabl . gz  ’  ; 

129  ’ timtab2 . gz ’ } ; 

130 

131  numProb  =  size (ProbList  ,  1)  ; 

132  addSlack  =  1; 

133 

134  [~, hostname]  =  system( ’ hostname ; 

135 

136  if  strcmp (cellstr (hostname) Deep -Thought  ’  ) 

137  gap  =  ’ /etc/gap4r6/bin/gap-default64 . sh  -m  2®008m  -q 

138  matlabpool ( ’ open  ’  , 3) : 

139  elseif  strcmp (cellstr (hostname) ensphdQl ’ ) 

140  gap  =  ’ /usr/local/gap4r 5/gap . shi  -m  28QQ8m  -q’; 

141  matlabpool ( ’ open ’  ,  12)  ; 

142  else 

143  gap  =  ’gap.sh  -m  2Q80Qm  -q’; 

144  matlabpool ( ’ open ’  ,  12)  ; 

145  end ; 

146 

147  parfor  i  =  1 : numProb 

148  ProbName  =  strrep (strrep (ProbList {i} gz Ip ’ 

149  filePath  =  strcat (ProbName /DoubleCoset/ ’)  ; 

150  =  system(strcat (’ mkdir 32 , filePath) ) ; 
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151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 


subNautyCycle  =  strcat (filePath , ProbName , ’ . aa . sub ’ ) ; 


superNautyCycle  =  strcat (filePath , ProbName aa . sup ; 
fileName  =  strcat (filePath , ProbName csv ’)  ; 
fout  =  fopen(fileName , ’ w ’ ) ; 

fileName  =  strcat (ProbName ProbList{i })  ; 

% - Create  supergroup - 

fprintf (1 , strcat ( 10 , 10 Starting  work  on 32 , ProbName , 32 GLP  ... 
with  cycles 10 , 10) )  : 

[  cplex ,  numslack  ]  =  . . . 

BuildProblem(fileName , addSlack 
n  =  size(cplex . Model . A , 2) ; 
tic ; 

useAdj  =  0; 

[  P,  numDigit  ]  =  ProjMatrix(  cplex . Model . A ,  cplex . Model . obj ,  ... 

useAdj  ) ; 
if  ~isempty(P) 

[  superdf ix , g6f ileName ,  numP  ]  =  runHnosigneff (P , numDigit ,  ... 

filePath , ProbName) ; 

if  superdfix  >  0 

fcolor  =  ColorGraph (cplex . Model . obj , cplex . Model . Ihs ,  ... 

cplex . Model . rhs , cplex . Model . lb , cplex . Model . ub ,  . . . 

cplex . Model . ctype , superdfix , useAdj ) ; 

[  grpsize  ,  ~  ]  =  NautyGroup(  gGfileName , fcolor , 1) ; 
fprintf (fout , ’ %i , ’ , [ superdfix , numP] ) ; 
fprintf (fout ,strcat(grpsize  ,  ’  ,  ’))  ; 
fprintf (fout , ’ %d , ’ , toe) ; 

fprintf (1 , strcat (10 , 10 Finishing  work  on 32 , ProbName ,  ... 
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32 , ’ GLP  with  . . . 

cycles  .  ’  ,  10 , 10) )  ; 
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180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 


=  system(strcat( ’mv ’ , 32 , filePath ,  ... 


ProbName  ,  ’ . aa . out ’  ,  32  ,  ... 

superNautyCycle) ) ; 

% - Make  supergroup  in  Gap  . .  . 

format - 


G  =  Nauty2Gap (superdfix  ,  n,  superNautyCycle  ,  ’G’); 

% - Create  subgroup - 


fprintf (1 , strcat (IQ , 10 ,  ’Starting  work  on’, 32,  ... 
ProbName, 32,  ’Margot  with  cycles .’,  10 , 10) ) ; 


tic ; 

useAdj  =  1; 

[  P,  numDigit  ]  =  ProjMatrix(  cplex . Model . A ,  ... 

cplex . Model . obj ,  useAdj  ); 
if  ~isempty(P) 

[  subdfix , g6fileName ,  numP  ]  =  ... 

runHnosignef f (P , numDigit , filePath , ProbName) ; 

if  subdfix  >  0 
fcolor  =  ... 

Co lor Graph (cplex . Model . obj , cplex . Model . Ihs ,  . . . 

cplex . Model . rhs , cplex . Model . lb , cplex . Model . ub , 

cplex . Model . ctype , subdfix , useAdj ) ; 

[  grpsize ,  ~  ]  =  NautyGroup(  g6fileName , fcolor , 1) ; 
fprintf (fout , ’%i , ’ , [subdfix , numP] ) ; 
fprintf (f out , strcat(grpsize , ’ , ’)) ; 
fprintf (fout , ’%d , ’ , toe) ; 
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204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 


=  system(strcat ( ’mv ’  ,  32 ,  ... 


filePath , ProbName  ,  ’ . aa . out  ’  ,  32  ,  ... 
subNautyCycle) )  ; 

else 

fprintf (fout 

end ; 

end ; 

fprintf (1 , strcat (IQ , IQ ,  ’Finishing  work  on’,  ... 

32, ProbName,  32, ’Margot  with  cycles .’,  IQ  ,  IQ) ) ; 

% - Supergroup  orbit  projection  ... 

matrix - 

E  =  OrbitProj (  filePatb , ProbName , n , G ,  ’G’  ); 

X  =  []; 

if  "isempty(E) 

~ , exitflag]  =  cplexlp (cplex . Model . obj ,  []  ,  []  ,  . 

[cplex . Model . A ; E] ,  ... 

[cplex . Model . rbs ; zeros (n , 1) ] ,  ... 
cplex . Model . lb , cplex . Model . ub) ; 

end ; 

if  exitflag  ==  -2 

fprintf (1 , strcat(lQ, IQ, ’Beginning ’ ,  32 , ProbName  ,  32 , 


’double  coset  decomposition .’,  IQ , IQ) ) ; 

tic ; 

% - Make  subgroup  in  Gap  . . . 

format - 

GAb  =  Nauty2Gap (subdfix ,  n,  subNautyCycle,  ’ GAb  ’  )  ; 

E  =  OrbitProj (  filePatb , ProbName , n , GAb ,  ’GAb’  ); 

X  =  []; 

if  ~isempty(E) 
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228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 


, exitflag]  =  ... 

cplexlpCcplex. Model. obj  ,  []  , [] , [cplex.Model.A;E] 

[cplex.Model.rhs; zeros (n , 1) ] ,  ... 
cplex.Model.lb.cplex.Model.ub); 

end ; 

if  exitflag  “=  -2 
passcheck  =  1; 

else 

passcheck  =  Q; 

end ; 

while  passcheck  ==  1 
passcheck  =  Q; 
repFile  =  ... 

DoubleCosetCfilePath, ProbName , G , ’ G ’ , GAb , ’ GAb ’ ) ; 

fin  =  fopenCrepFile , ’ r ’ ) ; 
tline  =  fgets(fin); 
while  ischar (tline) 

% - iterate  through  double  coset  ... 

representatives - 

if  length(tline)  -  ... 

length(strrep(strrep(tline ,  ’(’,  ’’)  ... 

,  ’  )  ’  ,  ”  )  )  >=  2 
Gtemp  =  ... 

strrep (GAb , ’) ; ’ ,strcat(’  ,  ’  , tline ,  ’) ;  ’)) 
F  =  OrbitProj (  ... 

filePath , ProbName , n , Gtemp ,  ’GAb’  ); 

X  =  []  ; 

if  ~isempty(F) 

~ , exitflag]  =  ... 

cplexlpCcplex. Mo del. obj , [] , []  ,  . .  . 
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250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 


[cplex . Model . A ; E] , 


[cplex.Model.rhs; zeros (n , 1) ] , 

cplex . Model . lb , cplex . Model . ub) ; 
if  exitflag  ~=  -2 
GAb  =  Gtemp  ; 
passcheck  =  1; 

end ; 

end ; 

end ; 

tline  =  fgets(£in); 

end ; 

end ; 

gapin  =  strcat (filePath , ProbName gap . size ; 
fsize  =  fopenCgapIn , ’w ’ ) ; 

fprintf (fsize , s treat (GAb , ’ Size (GAb) ; \nquit ; \n ’ ) ) ; 
fclose (fsize) ; 

lin_com  =  streat (gap , 32 , ’ <  ’  ,  32 , gapin) ; 

[~,grpsize]  =  system(lin_com) ; 
fprintf (fout , streat (grp size  ,  ’  ,  ’))  ; 
fprintf (fout , ’%d , ’ , toe) ; 

SendMeRe suits (streat (filePath, ProbName , ’  .  csv  ’  ) )  ; 
fprintf (1 ,strcat(10,10, ’Finishing’ ,32,  ... 

ProbName , 32 ,’ double  coset  decomposition .’, 10 , 10) ) ; 

else 

fprintf  (fout , ’G(A  0)''LP  =  G(A  bl^LP’); 
fprintf (1 , streat (10 , 10 ,  ’G(A  0)"LP  =  G(A  bl'LP  ... 
for ’  , 32 , ProbName ,32,10, 10) ) ; 

end ; 

else 

fprintf (fout 
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278 


279 


end ; 


280 


else 


281 


fprintf (fout , ’ GLP  N/A 


282 


fprintf (1 , strcat  (1®  ,  10  ,  ’GLP  does  not  apply  ... 


for ’ , 32 , ProbName  ,  ’  .  ’  ,  1® , 1®) ) ; 


283  end ; 


284 


285  fclose (fout) ; 


286 

287  end; 

288  matlabpool (  ’  close  ’  )  ; 

289 

290  fout  =  fopen( ’ DoubleCosetResults . CSV ’ , ’ w ’ ) ; 

291  fprintf (fout Problem ,  super  dfix ,  super  numP ,  super  grpsize ,  super 

time,  sub  dfix , sub  numP ,  sub  grpsize , sub  time,  G(A  b)“LP  grpsize 
G(A  b)"LP  time\n’); 

292  for  i  =  1 : numProb 

293  ProbName  =  strrep (strrep (ProbList {i} ,’. gz Ip ’,’’)  ; 

294  filePath  =  strcat (ProbName ,’ /DoubleCoset/ ’) ; 

295  fileName  =  strcat (filePath , ProbName ,’. csv ’)  ; 

296  fin  =  fopen(fileName , ’ r ’ ) ; 

297  if  fin  >  1 

298  fprintf (fout , strcat (ProbName , ’ , ’ ,  fgets(£in)  ,  ’\n’  ))  ; 

299  fclose (fin); 

300  else 

301  fprintf (fout , strcat (ProbName , ’ ,FAILED\n’)) ; 

302  end ; 

303  end ; 

304 

305  fclose (fout) ; 

306 
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307  SendMeResults (  ’ DoubleCosetResults . csv  ’  ); 


Appendix2/B  uildProblem.  m 

1 

2  function  [  cplex ,  numslack  ]  =  BuildProblem(fileName ,  addSlack ,  ... 

Aineq ,  bineq ,  Aeq ,  beq ,  c,  lb,  ub ,  ctype) 

3 

4  numslack  =  []  ; 

5 

6  %  Add  cplex  to  the  MATLAB  path 

7  addpath (genpath ( ’ /opt/ibm/IL0G/CPLEX_Studiol2  5 1/cplex  /  ’  ) )  ; 

8 

9  %  Aineq  <=  bineq 

10 

11  %  The  problem  name  and  its  file  path 

12  [filePath , ProbName , ~]  =  fileparts(strrep(strrep(strrepCfileName ,  ... 

13  ’  .mps’  ,  ’  .gz’  ,  ’  .Ip’  ,  : 

14 

15  if  strcmp (filePath , pwd) 

16  filePath  =  ’  ’  ; 

17  end; 

18 

19  if  “ isempty (filePath) 

20  filePath  =  strcat (pwd strrep (filePath , strcat (pwd ’ 

21  end ; 

22 

23  %  Initialize  cplex 

24  cplex  =  CplexO; 

25 

26  %  If  the  input  matrices  are  empty  and  the  fileName  is  an  mps  or  Ip  . . 

file ,  use 

27  %  cplex  to  read  in  the  mps  file 
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28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


if  isempty (Aineq)  &&  isempty (Aeq)  &&  ... 

length(strrep(strrepCstrrep(£ileName ,  ’.mps ’.Ip’,’’),  ... 
’.gz’,’’))  <  length(£ileName) 

%  Read  the  model  file  into  cplex 
cplex . readModel (fileName) ; 

elseif  maxCsize (Aineq) )  +  max (size (Aeq) )  ==  0 

£print£(l , ’ You  either  need  an  mps  or  Ip  format  input  file  or  you  ... 

need  to  enter  the  correct  matrices . \n ’) ; 
clear  cplex; 
return ; 


else 


%  Sense  if  it  is  min  or  max 
cplex . Model . sense  =  ’minimize’; 

%  The  constraint  matrix 
cplex . Model . A  =  [Aeq;Aineq]; 

%  The  right  hand  side 

cplex . Model . rhs  =  [beq;bineq]; 

%  The  left  hand  side 

cplex . Model . Ihs  =  [beq;  -Inf *ones (size (bineq) )] ; 

%  Objective  function 
cplex . Model . oh j  =  c; 

%  Lower  bounds 
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cplex . Model . lb  =  lb; 


%  Upper  bounds 
cplex . Model . ub  =  ub ; 

%  If  no  variable  type  is  given,  we  assume  all  are  continuous 
if  isempty (ctype) 

ctype  =  repmat ( ’ C ’ , 1 ,  numelCc)); 

end ; 

%  Types  of  variables 
cplex . Model . ctype  =  ctype; 


end ; 

%  Find  >=  constraints 

X  =  findC" isinf (cplex . Model . Ihs ’ )  &  cplex . Model . Ihs ’ 
cplex . Model . rhs ’ ) ; 
if  "isemptyCx) 

%  Find  constraints  that  are  both  >=  and  <= 
y  =  find (~ isinf (cplex . Model . rhs (x) )) ; 
z  =  x(y)  ; 

clear  y; 
if  ~isempty(z) 

cplex . addRows (-Inf  *  ones (numel (z)  ,  1) ,  -1  *  ... 
cplex . Model . A(z ,  -1  *  cplex . Model . Ihs (z) ) ; 

end ; 

clear  z; 

%  Convert  >=  constraints  to  <= 
y  =  find(isinf (cplex . Model . rhs (x) )) ; 
z  =  x(y) ; 
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87 

clear  y; 

88 

if  ~isempty(z) 

89 

cplex . Model . rhs (z)  = 

-1  * 

cplex. Mode l.lhs(z) 

90 

cplex . Model . A(z  ,: )  = 

-1  * 

cplex. Mode l.A(z, :) 

91 

cplex . Model . Ihs  (z)  = 

-Inf ; 

92 

end ; 

93 

clear  z  x; 

94 

95 

end ; 

96 

97 

if  addSlack  ==  1 

98 

ineqconst  =  find(isinf (cplex . Model . Ihs ’)) ; 

99 

if  ~isempty(ineqconst) 

100  numDigit  =  SigDigit (cplex . Model . ub (~ isinf (cplex . Model . ub) ) ) 

101  numslack  =  numel (ineqconst)  ; 

102  Z  =  zeros (size (cplex . Model . A , 1) ,  numslack); 

103  ctype  =  ’ ’ ; 

104  lb  =  zeros (numslack , 1) ; 

105  ub  =  Inf *ones (numslack , 1) ; 

106  for  i  =  1:1: numslack 

107  Z (ineqconst (i)  ,  i)  =  1; 

108  ctype  =  strcat (ctype  ,  ’C’); 

109  end ; 

110  cplex . addCols (zeros (numslack , 1)  ,  Z,  lb,  ub ,  ctype); 

111  cplex . Model . Ihs (ineqconst)  =  cplex . Model . rhs (ineqconst) ; 

112  numvar  =  size (cplex . Model . A ,  2)  -  numslack; 

113 

114  xO  =  []  ; 

115  cplex . Model . ctype  =  strrep (cplex . Model . ctype ,  ’B ’,’!’); 

116  for  i  =  1:1: numslack 

117  y  =  [cplex . Model . A(ineqconst (i)  ,:)  ,  ... 

cplex. Mode l.rhs(ineqconst(i))] ; 
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findA  =  find(cplex . Model . A(ineqconst (i) ,  linumvar)  ®) 
ctype  =  cplex . Model . ctype (findA) ;  %#ok<FNDSB> 

if  (isequal Cfloor(y) ,y)  &&  length(ctype)  ==  ... 
length(strrep(ctype ,  ’C’,  ’’))) 
cplex . Model . ctype (numvar  +  i)  = 

end ; 

f  =  zeros (numvar+numslack ,  1);  f(numvar+i)  =  -1; 

[xQ,x]  =  cplexlpCf,  [] ,  []  ,  cplex . Model . A ,  ... 

cplex . Model . rhs ,  cplex . Model . lb ,  cplex . Model . ub , xO) ; 
if  "isempty(x) 

cplex . Model . ub (numvar+i)  =  -x; 
clear  x; 

newub  =  find(cplex . Model . ctype (1 : (numvar  +  i  -  1))  . 
==  cplex . Model . ctype (numvar  +  i)  &  ... 
abs (cplex . Model . ub ( 1 : (numvar  +  i  -  1))’  -  ... 
cplex . Model . ub (numvar+i) )  <=  1); 

if  ~ isempty (newub) 

cplex . Model . ub (numvar+i)  =  cplex . Model . ub (newub) 
elseif  cplex . Model . ctype (numvar  +  i)  ==  ’I’ 

if  floor (cplex . Model . ub (numvar  +  i))  +  1  -  ... 
cplex . Model . ub (numvar  +  i)  <=  l®“-6 
cplex . Model . ub (numvar  +  i)  =  ... 

floor (cplex . Model . ub (numvar  +  i))  +  1; 

else 

cplex . Model . ub (numvar  +  i)  =  ... 

floor (cplex . Model . ub (numvar  +  i)); 

end ; 

else 

cplex . Model . ub (numvar  +  i)  =  ... 

roundn (cplex . Model . ub (numvar  +  i) ,  -numDigit) 
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end ; 

142  end ; 

143 

144  end ; 

145 

146  findbinary  =  find(cplex . Model . lb ’  ==  0  &  cplex . Model . ub ’ 

1  &  cplex . Model . ctype  ==  ’I’): 

147  if  ~isempty(findbinary) 

148  cplex . Model . ctype (findbinary)  =  ’B’; 

149  end ; 

150  end ; 

151  end; 

152 

153  if  isempty (ProbName) 

154  cplex . writeModel (strcat (filePath ,  ’ bidon . Ip ’ ) ) ; 

155  else 

156  cplex . writeModel (strcat (filePath ,  ProbName  Ip ’))  ; 

157  end; 

158 

159  end 


Appendix2/Proj  Matrix  .m 

1  function  [  P,  numDigit  ]  =  ProjMatrix(  A,  c,  useAdj  ) 

2  % 

3 

4  [m , n]  =  size (A)  ; 

5 

6  % - Determine  Projection  or  Adjacency  ... 

Matrix - 

7 

8  if  useAdj  ==  0 

9  %  Append  the  constraint  matrix  to  the  equality  constraints 
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10 


A  =  [c ’ : A]  ; 

11  %  Find  the  projection  matrix 

12  [U,D,V]  =  svd(full(A)) ; 

13  numDigit  =  abs(floor(logl8(max(max(absCU*D*V’  -  A)))))); 

14  d  =  sumCsum(abs (D)  >= 

15  M  =  zeros (n) ; 

16  MCl:l:d,l:l:d)  =  eyeCd); 

17  P  =  V*M*V’; 

18  else 

19  numDigit  =  abs (floor (loglO (eps* 18) ))  ; 

20  %  Create  graph  adjacency  matrix  (Margot  method) 

21  P  =  [zeros (n)  A’;  A  zeros (m)]; 

22  end ; 

23 

24  % - 

25 

26 

27  end 


Appendix2/runHnosignefF.m 

1  function  [  dfix , g6fileName , numP  ]  =  runHnosigneff (P ,  numDigit,  ... 

filePath,  ProbName) 

2  %  This  is  the  MATLAB  wrapper  for  Hnosigneff  that  returns  dfix 

3 

4  Hnosigneff  =  ’ /scratch/Ob j 1/Hnosigneff ’ ; 

5  PfileName  =  strcat (filePath ,  ProbName,  ’ . P . txt ’ ) ; 

6  g6fileName  =  strcat (filePath ,  ProbName,  ’.g6’): 

7 

8  dfix  =  - 1 ; 

9 

10  epsilon  =  18" (-l*numDigit) ;  %  Numerical  precision 

11 
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12  numVert  =  size(P,l); 

13 

14  % - Save  lower  half  of  P  as  a  vector  in  a  text  file - 

15  p  =  zeros (1 , sum(l : numVert) ) ; 

16  for  i  =  1:1: numVert 

17  p(l , Csum(l : (i  -  1))  +  l):(sum(l:(i  -  1))  +  i))  =  P(i,  l:i) 

18  end ; 

19  P  =  p; 

20  clear  p; 

21  X  =  find(abs(P)  <=  epsilon); 

22  if  "isemptyCx) 

23  P(x)  =  Q; 

24  end ; 

25 

26  fp  =  fopenCPfileName , ’w’ ) ; 

27  for  i  =  1:1: numel (P) 

28  if  isequal (P (i) , floor (P (i) ) ) 

29  fprintf (fp , ’%i  ’,P(i)); 

30  else 

31  fprintf (fp , strcat ,  num2str (numDigit) ,  ’f’,  32),  . 

roundn(P(i) ,  -1  -  numDigit)); 

32  end ; 

33  end ; 

34  fclose (fp)  ; 

35 

36  %  Find  unique  entries  that  are  more  than  2Q  *  epsilon  apart 

37  P  =  unique (dlmread(PfileName) ) ; 

38  d  =  P(l)  ; 

39  for  i  =  2  : 1 :  numel  (P)  ; 

40  if  abs (d(numel (d) ) -P (i) )  >  20  *  epsilon 

41  d  =  [d,  P(i)];  %#ok<AGR0W> 

42  end ; 
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43  end ; 

44  numP  =  max(size (d) ) ; 

45 

46  clear  P  d  i ; 

47 

48  % - Call  Hnosigneff - 

49  1  in_com  =  strcat (Hnosigneff ,  32,  PfileName ,  32,  g6fileName ,  32, 

num2str (numVert , ’ %i ’ ) ,  32,  num2str (20*epsilon ,  strcat(’%.’, 
num2str (numDigit  +  1),  ’f’))); 

50 

51  [status,  result]  =  systemClin_com) ; 

52 

53  if  status  "=  0 

54  AAout  =  strcat (’ Error  from  Hnosigneff:’,  10,  result,  10); 

55  disp (AAout); 

56  return; 

57  end ; 

58 

59  % - Load  value  for  dfix - 

60  j  =  1; 

61  while  j  <  (length(result)  -  1)  &&  ~ strcmp (result (j : (j  +  1)),  ’d 

62  j  =  j  +  1; 

63  end ; 

64  j  =  j  +  2; 

65  q  =  j  ; 

66  while  q  <  length(result)  &&  ~ strcmp (result (q) ,  ’  ’) 

67  q  =  q  +  1 ; 

68  end ; 

69  dfix  =  str2double (strrep (result (j : q) ,  ’  ’,  ’’)); 

70 

71  if  isnan(dfix) 

72  dfix  =  -1; 
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73  end ; 

74 

75  end 


Appendix2/ColorGraph .  m 

1  function  [  fcolor  ]  =  ColorGraph (c ,  Ihs ,  rhs ,  lb,  ub ,  ctype ,  dfix , 

useAdj ) 

2  %  This  function  makes  the  graph  coloring  text  for  nauty 

3 

4  n  =  numel (c) ; 

5  X  =  1 :  1 :  n  ; 

6 

7  %  -  Graph  coloring  for  variables  - 

8  if  useAdj  ==  0 

9  %  If  GLP ,  we  do  not  care  about  the  objective  function  coefficient 


10 

colorlist  = 

[lb, 

ub  , 

abs (ctype) ’ ] ; 

11  else 

12 

colorlist  = 

[lb. 

ub  , 

abs (ctype)  ’  ,  c] 

13  end ; 

14 

15  fcolor  =  ’\n£=[ ’ ; 

16 

17  while  ~isempty(x) 

18  y  -  findCismember (colorlist ,  colorlist (x(l) ,  ’ rows ’ ) ; 

19  for  k  =  1:1: numel (y) 

20  fcolor  =  strcat (fcolor ,  num2str ( (dfix  *  (y(k)  -  l)):l:(dfix  * 

y(k)  -  1) ,  ’%i,  ’)): 

21  end ; 

22  fcolor  =  strcat (fcolor , 

23  X  =  setdi£f(x,  y) ; 

24  end ; 

25 
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26  %  -  Graph  coloring  for  vertices  - 

27  if  useAdj  ==  1 

28  m  =  numel(rhs); 

29  X  =  1 :  1 :  m ; 

30  colorlist  =  [Ihs ,  rhs] ; 

31  while  ~isempty(x) 

32  y  =  find(ismember (colorlist ,  colorlist (x(l)  ,  :),  ’rows’ 

33  for  k  =  1 : 1 :  numel  (y) 

34  fcolor  =  strcat (fcolor ,  num2str (((dfix  *  (y(k)  -  1)): 

y(k)  -  D)  +  (dfix  *  n),  ’%i,  ’)); 

35  end ; 

36  fcolor  =  strcat (fcolor ,  ’|’); 

37  X  =  setdiff(x,  y) ; 

38  end ; 

39 

40  end ; 

41 

42  fcolor  =  strrep (strrep (strrep (strcat (fcolor ,  ’]’),  ’,  |]’, 

I  ’ ,  ’  I  ’)  ,  ’ ,  ’ .  ’ ,  ’): 

43 

44  return 

45 

46  %  ... 


47 

48 

if  useAdj  = 

=  0 

49 

50 

colorlist 

[lb(l)  , 

51 

varcolors 

zeros (n 

52 

varcolors 

(1) 

=  1; 

53 

for  i  =  2 

:  1: 

n 

54 

j  =  1; 

ub(l)  ,  abs(ctype(l))]  ; 
1)  : 


: (dfix  * 


]  ’)  , 
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55 

while  j  <=  size (colorlist ,  1)  &&  ~ isequal (colorlist ( j  , 

... 

[lb(i),  ubCi),  absCctype(i))]) 

56 

j  =  j  +  1; 

57 

end ; 

58 

if  j  >  size (colorlist ,  1) 

59 

colorlist  =  [colorlist;  lb(i),  ub(i),  abs (ctype (i) ) ] ; 

%#ok<AGR0W> 

60 

end ; 

61 

varcolors  (i)  =  j ; 

62 

end ; 

63 

elseif  useAdj  ==  1 

64 

colorlist  =  [c(l),  lb(l),  ub(l),  abs (ctype ( 1) )] ; 

65 

varcolors  =  zeros(n,  1); 

66 

varcolors(l)  =  1; 

67 

for  i  =  2 : 1 :  n 

68 

j  =  1; 

69 

while  j  <=  size (colorlist  ,  1)  &&  " isequal (colorlist (j , 

:),  ... 

[c(i),  lb(i),  ub(i),  abs (ctype (i) )] ) 

70 

j  =  j  +  1; 

71 

end ; 

72 

if  j  >  size (colorlist  ,  1) 

73 

colorlist  =  [colorlist;  c(i),  lb(i),  ub(i) ,  abs (ctype (i) )] ;  ... 

%#ok<AGR0W> 

74 

end ; 

75 

varcolors (i)  =  j ; 

76 

end ; 

77 

end ; 

78 

79 

clear  colorlist; 

80 

81 

fcolor  =  ’  ’  ; 

82 

83  maxcol  =  inax(varcolors)  ; 
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84  if  maxcol  >  1 


85  fcolor  =  ’\nf=[ ’ ; 

86  for  i  =  1:1: maxcol 

87  j  =  findC  varcolors==i)  ; 

88  q  =  maxCsize(j)) ; 

89  for  k  =  1 : 1 :  q 

90  fcolor  =  strcat (fcolor ,  num2strCCdfix  *  (j (k)  -  l)):l:(dfix 

j(k)  -  1) ,  ’%i,  ’)); 


91 

end ; 

92 

fcolor 

=  strcat (fcolor , 

93 

end ; 

94 

fcolor  = 

strrep (strrep (strrep (strcat (fcolor 

I  ’  1  ’  ’  ’  ’  1  ■ 

I  J  i  »  1  J  y  J 


95  end ; 

96 

97  clear  varcolors; 

98 

99  if  useAdj  ==  1 

100 

101  %  -  Graph  coloring  for  vertices  - 

102 

103  b  =  [beq;bineq]; 

104  contype  =  8; 

105  if  m  ==  8 

106  contype  =  1 ; 

107  end ; 

108  colorlist  =  [b(l),  contype]; 

109  concolors  =  zeros (m  +  p,  1); 

110  concolors(l)  =  1; 

111  for  i=2:l:(m  +  p) 

112  if  m  <  i 

113  contype  =  1; 
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end ; 
j  =  1; 

while  j  <=  size (colorlist ,  1)  &&  " isequal (colorlist (j ,  ... 

[bCD,  contype]) 

j  =  j  +  1; 

end ; 

if  j  >  size (colorlist  ,  1) 

colorlist  =  [colorlist;  b(i) ,  contype];  %#ok<AGR0W> 
end ; 

concolors (i)  =  j ; 
end ; 

clear  colorlist  b; 

maxconcol  =  max (concolors) ; 
if  maxconcol  >  1 
if  maxcol  >  1 

fcolor  =  strrep (fcolor ,  I’); 

else 

fcolor  =  ’ \nf = [ ’ ; 
end ; 

for  i  =  1 : 1 : maxconcol 
j  =  find(  concolors==i) ; 
q  =  max(size(j)) ; 
for  k  =  1 : 1 :  q 

fcolor  =  strcat (fcolor ,  num2str ( ( (dfix  *  (j (k)  -  l)):l;(d£ix 
*  j(k)  -  D)  +  (dfix  *  n),  ’%i,  ’)); 

end ; 

fcolor  =  strcat (fcolor , 
end ; 

fcolor  =  strrep (strrep (strrep (strcat (fcolor ,  ’]’),  |]’, 

’  I  ’  ’  I  ’ )  ’  ’  ’  ’ )  ■ 

J  I  »  I  y  »  »  )  J  y  J 
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143  end ; 

144 

145  clear  maxcol  maxconcol  concolors; 

146 

147  end ; 

148 

149  end 


Appendix2/NautyGroup.m 

1  function  [  grpsize ,  dreadOutPerm  ]  =  NautyGroupC  ... 

g6fileName , fcolor , Cycle) 

2  %  Uses  Nauty  to  determine  group  size  for  a  given  g6  format  graph  . 

colored  in  accordance  with  fcolor. 

3 

4  grpsize  =  ’  ’  ; 

5 

6  if  Cycle  <=  0 

7  perm  =  ’ \np ’ ; 

8  else 

9  perm  =  ’  ’  ; 

10  end ; 

11 

12  [filePath , ProbName , ~]  =  fileparts Cg6fileName) ; 

13 

14  if  strcmp (filePath , pwd) 

15  filePath  =  ’  ’  ; 

16  end ; 

17 

18  if  " isempty (filePath) 

19  filePath  =  strcat(pwd,  strrep (filePath ,  strcat (pwd  ,  ’  /  ’  )  , 

’ ’),  ’/’): 

20  end ; 
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junk  =  strcat (filePath ,  ProbName , ’ . junk ’ ) ; 
dreadInPerm  =  strcat (filePath ,  ProbName , ’ . naut . inp ’ ) ; 
dreadOutPerm  =  strcat (filePath ,  ProbName , ’ . aa . out ’ ) ; 

% - Nauty  Linux  command  line  scripts - 

[~, hostname]  =  system( ’ hostname ; 
if  strcmp (cellstr (hostname) , ’ Deep -Thought ’ ) 

nautyFile  =  ’ /etc/nauty2 5r 5/ ’ ;  %  Folder  ... 

containing  nauty 

else 

nautyFile  =  ’ /usr/local/nauty2 5/ ’ ;  %  Folder  ... 

containing  nauty 

end ; 

listg  =  strcat (nautyFile ,  ’listg  -d’);  %  listg  executable 

dreadnaut  =  strcat (nautyFile ,  ’dreadnaut  <’);  %  dreadnaut  ... 

executable 

% - Call  listg - 

lin_com  =  strcat (listg ,  32,  g6fileName ,  32,  ’>’,  32,  junk); 

[status,  ~]  =  system(lin_com) ; 
if  status  0 

AAout  =  strcat (’ Error  from  listg:’,  1®,  result,  1®); 
disp (AAout) ; 
return ; 

end ; 

% - Make  input  file  for  dreadnaut  (permutations) - 

fperm  =  fopen(dreadInPerm ,  ’w’); 

fprintf (fperm , strcat (’<’ ,  32,  junk,  fcolor ,  perm , ’ \n?\nx\n ’ ) ) ; 
fclose (fperm) ; 
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50 


51  clear  fcolor ; 

52 

53  % - Call  dreadnaut  (cycles) - 

54  lin_com  =  strcat (dreadnaut ,  32,  dreadInPerm) ; 

55 

56  [status,  AAout]  =  system(lin_com) ; 

57 

58  % - Get  rid  of  ’iy[ode  =  dense’  in  nauty  output  so  it  can  be  read  by 

Margot - 

59  AAout  =  strrep (AAout ,’ Mode=dense  ’,  ’’); 

60 

61  if  status  "=  0 

62  AAout  =  strcat (’ Error  from  dreadnaut:’,  10,  AAout,  10); 

63  disp (AAout); 

64  return; 

65  end ; 

66 

67  % - Make  output  file  for  dreadnaut  (cycles) - 

68  fout  =  fopen(dreadOutPerm ,  ’w’); 

69  fprintf (fout , AAout) ; 

70  fclose (fout) ; 


71 

72  % - Load  value  for  groupsize - 

73  j  =  1; 

74  while  j  <  (length(AAout) -1)  &&  ... 

75  ~ strcmp (AAout (j : (j  +  7) ) , ’ grpsize=  ’  ) 

76  j  =  j  +  1; 

77  end; 


78  j  -  j  +  8 ; 

79  q  =  j  ; 

80  while  q  <  length(AAout)  &&  ~ strcmp (AAout (q  +1),  ’;’) 


146 


81  q  =  q  +  1 ; 

82  end ; 

83  grpsize  =  AAout(j:q); 

84 

85  if  isnan(str2double (grpsize)) 

86  grpsize  =  ’  ’  ; 

87  end; 

88 

89  end 


Appendix2/OrbitProj .  m 

1  function  E  =  OrbitPro j (filePath , ProbName , numvar , G ,  GrpName  ) 

2 

3  [~, hostname]  =  systemC ’ hostname ’)  ; 

4 

5  % - Call  Gap  command - 

6  if  strcmp (cellstr (hostname) Deep -Thought ’ ) 

7  gap  =  ’ /etc/gap4r6/bin/gap-default64 . sh  -m  2QQO0m  -q’; 

8  elseif  strcmp (cellstr (hostname) ensphdOl ’ ) 

9  gap  =  ’ /usr/local/gap4r 5/gap . shi  -m  20000m  -q’; 

10  else 

11  gap  =  ’gap.sh  -m  20000m  -q’; 

12  end ; 

13 

14  ProbName  =  strrep (ProbName , ’ . aa ’ , ’ ’ ) ; 

15  gapin  =  strcat (filePath , ProbName gap . inp ’) ; 

16  gapOut  =  strcat (filePath , ProbName gap . orb ’)  ; 

17 

18  % - 

19 

20  % - Gap  command  file - 

21  fout  =  fopen(gapIn , ’ w ’ ) ; 
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22  fprintf (fout , G) : 

23  fprintf (fout , strcat (’ Orbits (’ ,  GrpName ,  num2str(numvar) , 

’]) ;\nquit; ’)) ; 

24  fclose (fout) ; 

25  E  =  []  ; 

26 

27  if  length(strrep (G Group (())’,’’) )  ==  length(G) 

28 

29  lin_com  =  strcat (gap , 32 32 , gapin) ; 

30  [~ ,  result]  =  system(lin_com) ; 

31  result  =  strrep (result , char (32) ,’’) ; 

32  result  =  strrep (result ; 

33  result  =  strrep (result ; 

34  result  =  strrep (result , char (10) ,’’)  ; 

35  result  =  strrep (result char ( 10) ) ; 

36  fout  =  fopen(gapOut , ’w ’ ) ; 

37  fprintf (fout , result) ;  fprintf (fout \n ’) ; 

38  fclose (fout) ; 

39  fin  =  fopen(gapOut , ’ r ’ ) ; 

40  tline  =  fgets(£in); 

41  while  ischar (tline) 

42  X  =  str2num(tline)  ;  %#ok<ST2Niy[> 

43  if  ~isempty(x) 

44  Y  -  zeros (numvar , 1)  ; 


45 


Y(x)  =  1; 


46 


E  =  [E,  Y] ;  %#ok<AGR0W> 


47 


end ; 


48 


tline  =  fgets(fin); 


49  end ; 


50  [" ,D,V]  =  svd(E’)  ; 


51  d  =  sum(sum(abs (D)  >=  10"-9)): 


52  M  =  zeros (numvar) ; 


148 


53  =  eye(d); 

54  E  =  eye (numvar) -V*M*V ’ ; 

55  end ; 

56 

57  end 


Appendix2/Nauty2Gap.m 

1  function  GroupString  =  Nauty2Gap (dfix ,  numvar,  infile,  GroupName) 

2  %  This  function  removes  layers  for  the  GLP  group 

3 

4  fin  =  fopen (inf lie) ; 

5 

6  tline  =  fgetsCfin); 

7  cyclestring  =  ’  ’  ; 

8  redstring  =  ’  ’  ; 

9  Groupstring  =  strcat (GroupName =Group (’) ; 

10 

11  while  ischar (tline) 

12 

13  if  tline(l)  ==  ’ (’ 

14  if  ~isempty(cyclestring) 

15  X  =  [find(cyclestring  ==’(’)’  +  1,  ... 

find(cyclestring== ’ ) ’ ) ’  -  1]; 

16  numcycles  =  size(X,l); 

17  for  i  =  1 : 1 : numcycles 

18  X  =  str2num(cyclestring (X(i , 1) : X(i , 2) ) ) ;  %#ok<ST2NM> 

19  X  =  floor (x . /dfix)  +  1; 

20  j  =  2; 

21  while  j  <=  size  (x,  2) 

22  if  ismember (x( j ) , X (1 : j - 1) ) 

23  x(j)  =  []; 

24  else 
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25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


j  =  j  +  1; 

end ; 

end ; 

if  ~isempty(x)  &&  max(x)  <=  numvar 

xstring  =  strrep (strcat ( ’ ( ’ , num2str (x ,  ... 

’%d, ; 

if  length(strrep(redstring , xstring ==  ... 
length (redst ring) 

redstring  =  strcat (redstring  ,  xstring); 

end ; 

end ; 

end ; 

Groupstring  =  strcat (GroupString ,  redstring,’,’); 
redstring  =  ’  ’  ; 

end ; 

cyclestring  =  strtrim(tline)  ; 
elseif  strcmp (tline  (1 :  3)  ,  ’  ’) 

cyclestring  =  strcat (strtrim(cyclestring) ,  ’,’,  strtrim(tline) ) ; 
elseif  ~isempty(cyclestring) 

X  =  [find(cyclestring  ==’(’)’  +  1,  find(cyclestring== ’ ) ’ ) ’  -  1] ; 
numcycles  =  sizeCX,!); 
for  i  =  1 : 1 : numcycles 

X  =  str2num(cyclestring  CX(i  ,  1)  :  X(i  ,  2)  )  )  ;  %#ok<ST2Nri> 

X  =  floor (x . /dfix)  +  1; 

j  =  2; 

while  j  <=  numel(x) 

if  ismember (x ( j ) , X ( 1 ; j - 1) ) 
x(j)  =  []; 

else 

j  =  j  +  1; 

end ; 

end ; 
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55 


if  ~isempty(x)  &&  max(x)  <=  numvar 


56  xstring  =  strrepCstrcat ( ’ ( ’ ,  num2str (x , ’ %d , ’ ) 

57  if  length(strrepCredstring ,  xstring,  ’’))  == 

length (redstring) 

58  redstring  =  strcat (redstring  ,  xstring); 

59  end ; 

60  end ; 

61  end ; 

62  if  ~ isempty (redstring) 

63  Groupstring  =  strcat (GroupString  ,  redstring,’,’); 

64  end ; 

65  cyclestring  =  ’  ’  ; 

66  redstring  =  ’  ’  ; 

67  end ; 

68  tline  =  fgets(£in); 

69 

70  end ; 

71 

72  fclose (fin) ; 

73  Groupstring  =  GroupString (1 : max (9 ,  length(GroupString)  -  1)); 

74  GroupString  =  strrep  (strcat  (GroupString  ,  ’);;\n’),  ’GroupO;; 

’ Group (())  ;  ;  ’)  ; 

75 

76  end 


Appendix2/DoubleCoset.m 

1  function  [gapOut]  =  DoubleCoset (f ilePath , ProbName , G ,  Gname ,  M 

2 

3  [~, hostname]  =  system( ’ hostname ’) ; 

4 

5  % - Call  Gap  command - 


’)  ’)  , 


Mname  ) 
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6  if  strcmp (cellstr (hostname) Deep -Thought ’ ) 

7  gap  =  ’ /etc/gap4r6/bin/gap-default64 . sh  -m  2QQO0m  -q’; 

8  elseif  strcmp (cellstr (hostname) ensphdQl ’ ) 

9  gap  =  ’ /usr/local/gap4r 5/gap . shi  -m  20®00m  -q’; 

10  else 

11  gap  =  ’gap.sh  -m  200®0m  -q’; 

12  end ; 

13 

14  ProbName  =  strrep (ProbName , ’ . aa ’ , ’ ’ ) ; 

15  gapin  =  strcat (filePath , ProbName gap . inp ’) ; 

16  gapOut  =  strcat (filePath , ProbName gap . rep ’) ; 

17 

18  % - Gap  command  file - 

19  fout  =  fopen(gapIn , ’ w ’ ) ; 

20  fprintf (fout , M) ; 

21  fprintf (fout , G) ; 

22  fprintf (fout , strcat ( ’ dc : =DoubleCosets ( ’ ,  Gname , ’ , ’  ,  Mname , ’ , ’ 

Mname ,  ’);;\nList(dc, Representative); \nquit ; ’ ) ) ; 

23  fclose (fout) ; 

24 

25  if  length(strrep (M Group (())’,’’) )  ==  length(M)  &&  ... 

length(strrep (G Group (())’,’’) )  ==  length(G) 

26 

27  lin_com  =  strcat (gap , 32 32 , gapin) ; 

28  [~ ,  result]  =  system(lin_com) ; 

29  result  =  strrep(strrep(strrep(strrep(strrep(strrep(result 

’(),’,  ”)  ”),  ”),  chard®),”),  char(32) 

’).’  ,’)\n’); 

30  fout  =  fopen(gapOut , ’w ’ ) ; 

31  fprintf (fout , result) ;  fprintf (fout ,’ \n ’) ; 

32  fclose (fout) ; 

33 
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34  end ; 

35 

36  end 


Appendix2/SendMeResults  .m 

1  function  SendMeResults (  attachment  ) 

2  %  This  emails  me  the  file 

3 

4  mySMTP  =  ’ms-afit-03.afit.edu’; 

5  myEmail  =  ’andrew.geyer@afit.edu’; 

6  setpref (’ Internet ’ ,  ’ SMTP_Server ’ ,  mySMTP) ; 

7  setpref (’ Internet ’ ,  ’E_mail’,  myEmail); 

8 

9  % - 

10 

11  sendmail (myEmail ,  ’code  results’,  strcat ( ’ Hey , ’ ,  10,  10,  ’Here  are 

the  results.’,  10,  10,  ’You’),  attachment); 

12 

13  end 
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